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Klubi pitää sääntömääräisen vuosikokouksensa lauantaina, maaliskuun 
19. päivänä, alkaen klo 15.00. 

Kokouspaikka on Insinööri järjestöjen koulutuskeakukaen tllolaaa. 
Ratavartijankatu 2 III kerros (sisäänkäynti ylätasanteelle). 

Kokouksessa käsitellään klubin sääntöjen 9. pykälän määrMämät asiat. 
Kokouksessa päätetään myös sääntöjen 3. pykälän muuttamisesta. 

Varsinaisten vuosikokouaaaioidan lisäksi tilaisuuteen on varattu 
mielenkllntoleta ohjelmaa, mtatäpä muusta kuin tietokoneista. 

Kaikki APPLE -narraa ta Jet Joukolla mukaan.' Joa et itse voi tulla, 
valtuuta palkallatuleva klubi lainan ltaeai Ja kahden todistajan 
n lm iki f toltUktfUl varuatetulle vapaamuotoisella valtakirjalla 
käyttämään äinl- Ja puheval taaal. 


TAAKSE- JA ETEENPÄIN 


Nönnä v/uonna saatiin aikaan seuraavat artikkelit 


Toukokuu : 


OMENASTA SE ALKOI l^ rkku Siivola 

mm. konekielen liimaus BASICiin 
HAMLETISTA LUTHERIIN Markku Siivola 

Appleklubin esittely 
APPLE II SLORAPIIRTO Markku fetsämäki 

LISTAUKSET 

CODE-POKES UIRITER 

S.H.Lam Monitor Routine 


Syyskuu: 


Lehdelle oli jo keksitty nimi OMENAHYVE ja muotokin oli hiukan 
paranturLt monisteasteelta. 

APPLE PASCAL - kokemuksia ja niksejä Juhani Viherlahti 

VAPAUTTA JA TEKSTINLUKUA Markku Siivola 

DOS-muutokset: free space CATALOGiin 

ja text fileiden luku 
LPTAAMISVAIKEUKSIA? Tero Sand 

ohjelmapelastus sortuvilta levyiltä 
AUTOMAATTINEN PIIRTÄMINEN Aapi Juntura 

KIELIKCRTISTA HYÖTY IRTI Tero Sand 

PUUSTA PUOONNEITA - mitä uutta Applerintamalla? MArkku Siivola 
MITA ON IAC? - International Apple Core»n esittely 
KONEKIRJOITUS JA PAINANTA - konekielirutiinit 
RUUTUPA INO - monitoriruutu printterille 
MARKKINAPAIKKA 
LAINAUSPALVELU 
PUBLIC OOMAIN - levyluettelo 
APFLEKLU8IN SÄÄNNÖT 
LISTAUKSET 

EREE SPACE AND FILEDLMP PCKER 

FF: E E SPACE ON THE SCREEN 

PIIRTURI OHJELMA (Uatanabe) 

GFAFI IKKATAULUOHJELMA (Apple 
Graphics Tablet) 

KONEKIRJOITUS JA PAINANTA 

PRINTSTRING, CHRIN ja MSGIN 

TEXT SCREEN OUMP - kclme versiota 


Minkäs teet kun klubimme Lukuisat .u-rupnt 1 f. M l f.;iv./it kr. pattinsa niin 
piilossa, ettei Juttuja ole vielä tännt päin vyörynen virrannut. 
Ensimmäiset heräämisen merkit ovbt kuitenkin Ja nähtävissä tässä 
numerossa, uusia palvelevia puhelimia on saatu kakal lisää ijrafiikka- 
ja Apple Ill-purelimet. Lisä ei ole pahitteeksi. PuheL InnumerommP ja 
osoitteemme alkusivulta. 

Yksi vapaavalintainen PD-diski ohjelmineen ja postikuluineen Jutusta 
joka julkaistaan. Eihän se tietty järin hirmuinen korvaus ole vaan 
aloitetaanpa näin kuitenkin. 

Tärkeintähän jutussa on sen selkeys, ei Applen hallintatasc. 
Katsokaapa vaikka Call -A.P.P.L.E.a, teknisesti vahvinta Applelehteä. 
Se julkaisee juttuja myös täysin aloittelijoille selostaen aivan 
yksinkertaisia asioita. Tällaisiakin tarvitaan, sillä suomalaiseen 
käyttäjäkuntaamme mahtuu tällä hetkellä jo sangen eritasoisia Applen 
hallitsijoita. Siis vielä kerran: jutun sisällöllinen selkeys 
(oikeinkirjoitus- yrr. asiat voi kyllä toimitus hioa) on olennaista, 
eikä se, että se esim. esittelee bugin, jota Apple Computer Inc:kään 
ei ole vielä tähän mennessä löytänyt. 

Eikä vain pelkkiä konejuttu ja» Missä viipyy sen äsken tilaamasi Ja 
nyt niin syvästi rakastamasi tai vihaamasi ohjelman kritiikki, josta 
muut klubilaisetkin olisivat kiinnostuneita? vaikka klubille PEELINGS 
II eli ohjelmien kritiikkilehti tuleekin, ja muissa lehdissä 
kritikoidaan kaikenlaisia ohjelmia, on kenttä niin laaja, että kyllä 
informoitavaa tällä alueella riittää. Soittele vaikka ensin klutille, 
ettei joku muu ole jo tekemässä samasta asiasta juttus, Ja ryhdy 
sitten toimeen. 

fyös hengen lento, filosofiset kanranctot ja yhteiskunnallisesti 
kantaa ottavat mielipidekirjoitukset mikrojen suhteesta niin ihmiseen 
kuin hänen ympäristöonsäkin, Suomen mikrohistoria ja 
tulevaisuudenvisiot sopivat Qnenahyveen aineksiksi. Ettei omaa 
mikroaan ennen pitkiä sekoiit-iai omaan napaansa. Emme kai tvydv 
pelkkään bittinikkarointiin? 

Mitäs luulit? - haarukkapalat ovat myös tervetulleita. Katso esim. 
tämän numeron What did you expect - ohjelmia. Mitä lyhyempiä (ei 
muutamaa riviä pidempiä ainakaan), ovelampia, nasevampia, 
yllätyksellisempiä, Applen toimintaa opettavampia ne ovat, sitä 
parempi . 

Markkinapaikka kyllä toimisi, jos myisitte/ ostaisitte/ vaihtaisitte 
jotakin, vaan mitään ei ole kuulunut. Ilmoitustila on ilmaista kuten 
myös kyselyt samanmielisistä jonkin alueen erikolsharrastajista. Chko 
esim. modemimiehiä? 

vuosikokous lähestyy. Se pidetään lauantaina maaliskuun 

19 päivänä klo 15 INSKGh tiloissa, katso etusivu. Tulkaa mukaan 

valitsemaan uusia virkailijoita tai valtuuttakaa allekirjoituksellanne 

ja kahdella todistajalla joku käyttämään vuosikokouksessa ääni- ja 

puhevaltaanne. 

Meistä kaikistahan tämä kiinni on. 


P.S. Toimituksen osoite on tätänykyä puheenjohtajan osoite. 
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Juhani l/iherlahti 
12.2.1983 

APPLE II e 


Kauan odotettu APPLE Ile- ja LISA-koneiden julkistus tapahtui taumi- 
helmikuun vaihteessa. 

APPLE Ile 


Pian tuon julkistuksen jälkeen minulla oli tilaisuus tutustua oikeaan 
Ile :hen. Tuo e-kirjain tulee muuten sanasta ENHANCED eli lisätty. 

Huhuja oli jo liikkunut pitkään ammattilehdistössä siitä, mitä kaikkea 
uutta tämä kone tarjoaa. Eräät noista huhuista osoittautuivat 1o ensi 
silmäyksellä virheellisiksi. J 

Prosessori on entinen 6502 ja kellotaajuus kuten ennenkin; 1 MHz. 

Päällisin puolin kone on aivan vanhan II:n näköinen. Näppäimistö on 
kuitenkin pistetty aivan uuteen uskoon. Koneen sisällä on sitten 
tapahtunutkin aikamoinen remontti, josta seuraavassa. 

Piiripakettien lukumäärä on vähentynyt tuntuvasti. Mrahantuojan mukaan 
neljänteen osaan edellisestä mallista. Kielikortti on valmiina 
yhdysrakenteisena. PAL-kortti on valmiina koneessa. 

Muistia on Sh kilotavua, joka on lisättävissä 128 kilotavuun saakka. - 

??«Tl!^ , \ k0 £ ttl j8 Y hdi3tett V lisämuisti tai pelkkä 80-merkin kortti 
liitettävissä kolmanteen korttipaikkaan. 

Konekielirutiinit ovat valmiina lisämuistin hyödyntämiseksi 
konekieliohjelmissa. 

NÖPPälMISTÖ 

Näppäimistä on pantu täysin uusiksi. APPLE II:n näppäimistöä on 
lisätty 53:sta 63:een. Isot ja pienet kirjaimet ovat nyt 
käytettävissä. Näppäimistön alapuolella kotelossa on keinukytkin 
jolla saadaan vaivattomasti vaihdettua joko amerikkalainen ASCII* 
merkistö (128 standardin mukaista merkkiä) tai skandinaavinen. 

Kaikki merkit näkyvät tietenkin näppäimistössä, jolloin joidenkin 
näppäinten pinnassa on neljäkin eri merkkiä. Keinukytk imellä 
määrätään, mitä merkkiparia käytetään. 

Näppäimistökenttä on hieman kovera, aivan kuten esimerkiksi I8M:n 
kirjoituskoneen näppäimistöissä. Tuntuma verratuna vanhaan II:n 
näppäimistöön tältä osin oli aikaisempaa näppäimistöä parempi! 

RETURN-näppäin on oikealla, muotoiltuna nyt pystysuuntaiseksi. 
Ensimmäisenä tuntumana RETURN-näppäimeen oli, että se on liian kaukana 
oikealla ja siihen on valkea yltää pikkusormella. Luulisin sen olevan 
kuitenkin vain tottumuskysymys. 

ER IKOISNÄPPÄIMET 


Kursorin ohjailuun on välilyöntinäppäimen vaakarivillä neljä erillistä 
näppäinta. 


Välilyöntinäppäimen kunnankin puolen ovat "OMPPU" -erikois- 
taimintanäppäiroet. Toisella niiatä saadaan CONTROL ja RESET 
-näppäinten yhteispainalluksella kone kirjoittamaan dataa joka 
muistisivulle. Toiminnolla simuloidaan virta-pois ja takaisin päälle, 
eli kylmäkäynnistystä. Haluttaessa aloittaa suojatun ohjelman jälkeen 
jonkin toisen ohjelman käyttö, ei tarvita nyt erikseen 
kylmäkäynnistystä. 

Toinen "CMPPU" -näppäin, yhdessä RESET ja CONTROL -näppäinten kanssa 
ajaa muistia ja piirejä testaavan testiohjelman. Kone ilmoittaa 
lyhyellä viestillä, jos virheitä ei löytynyt. 

"OMPPU"-näppäimet soveltuvat myöskin pelinappuloiden näppäimiksi. 
CAPS-LOCK -näppäin, lukitus isojen kirjainten asentoon, on lisätty 
myöskin uuteen näppäimistöön. 

Äitikortilla on seitsemän korttikantaa lisäkorttien kytkemiseksi. 
Tilaa lisätoiminteille on enemmän, koska eräät ennen korttipaikan 
tarvinneet toiminteet ovat nyt jo valmiina rakenteina. 

Häiriösuojaukseen on kiinnitetty erityistä huomiota. Koko kotelo on 
sisäpinnaltaan päällystetty johtavalla aineella. Myös irroitettava 
kansi on johtava ja se on liitetty muuhun koteloon ylä- ja alareunan 
jousilistoilla. Takaseinämä muodostuu metallilevystä, jossa on 
suljettavat kaapeleiden D-liittimille sopivat läpivientiaukot. 

KÄ Y TTÖJÄR JESTELMÄ JA OHJELMISTOT 

Maahantuojan ilmoituksen mukaan noin 95 prosenttia kaikesta II :n 
ohjelmistosta on yhteensopivaa uuden version kanssa. Päinvastoin, eli 
yhteensopivuutta IIe:stä II:een ei ole. 

Kokeilua varten olimme ottaneet mukaan joukon mahdollisimman erilaisia 
ohjelmia. Tiesimme, että OOS 3.3 on sama kuin edeltävässä versiossa, 
joten sen oletetuinkin toimivan. Eniten kiinnostivat pääosiltaan 
konekielinen, ANI-tletoliikenneoh jelmisto ja PASCAL. Mukana oli myös 
MAGIG WINOCW II -tekstinkäsittelyohjelmisto, PERSON AL FILING SYSTEM: in 
uusin versio ja joitakin pelejä. 

Tehokkaista yrityksistä huolimatta emme saaneet konetta "solmuun". 
ANI-tietoliikenne- ja konekieliohjelmat toimivat moitteettomasti, 
PASCAL-ohjelmat kääntyivät ja pyörivät kuten oli tarkoituskin. 
Tekstinkäsittely sujui moitteetta. 

Uudelle koneelle ei ole juuri valmista ohjelmistoa, mutta kuten 
kokeilu osoitti vanhat ohjelmat toimivat. Tälle koneelle on alkuun 
saatavana ainakin tekstinkäsittelyjärjestelmä APPLEURITER He ja 
tietokantajärjestelmä QUICKTILE He. 

HINTA 


Suomalainen maahantuoja ei pystynyt vielä ilmoittamaan tarkkaa hintaa, 
mutta kertoi sen olevan jossain edellisen version hintaluokassa, ehkä 
hieman sen yli. 


USA:sta tulleet hintatiedot ovat: 

APPLE Ile USO 1.395,00 

Oiskettiasema DIS* II 

ohjaimella USO 545,00 

ilman ohjainta USO 395,00 
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Jokainen vai kokemustensa kautta saamillaan kertoimilla päätellä 
kotimaisen vähittäismyyntihinnan. 

Lienee selvää, että Ile tulee korvaamaan II :n. Ensituntumalla en 
kuitenkaan aio pistää omaa 11+ myyntiin ja osta uutta heti kun se 
myyntiin tulee. Aika sitten näyttää kuinka auhtautumiseni muuttuu, 
kunhan koneesta saadaan tarkempaa tietoa. 

LISA TIETOKONE 

IIe:n kanssa samaan aikaan APPLE julkisti tarkoin varjellun 
salaisuuden, LISA- tietokoneen. Sen suunnittelussa on lähdetty aivan 
uusille urille. Helppokäyttöisyys on ollut eräs perusajatus. 
Valmistaja mainostaakin sitä tietokoneena, jonka käytön oppii 20 
minuutissa, tietokoneisiin vihkiytymätönkin. Minkätasoisesta 
käyttämisestä ja ymmärtämisestä on kyse, on mielenkiintoista nähdä. 
Tuollaisesta laitteen tasosta pitää sitten kyllä maksaakin paljon. 

PÄÄPROSESSORI 

CPU on MC68000 32/16 bittiä. Tietoväylä on leveydeltään 16 bittiä. 
Seitsemäntasoinen keskeytys järjestelmä. 

Muistia an melkoisesti: 16 kilotavua käynnistys (BOOT) -RQM:ia ja 
1 megatavu RAM-muistial 

Korkealaatuista grafiikkaa on käytetty helpottamaan käyttöä. Tärkeä 
seikka on hiiri (MOUSE), savukerasian kokoinen, yhdellä kytkimellä 
varustettu ohjain kohdistimen liikutteluun. 

LISA on laitteistoltaan ja ohjelmistoltaan hyvin monipuolinen. Sitä on 
tarkoitus myydä paljon, koska maahantuoja ilmoitti tekevänsä 
suomenkieliset käsikirjat tuota pikaa. Tietenkin helppokäyttöisyyden 
imagoon kuuluu, ettei käyttäjän tarvitse kahlata vieraskielisen 
ammattisanaston viidakossa, vaan voi oppia toiminnot helposti omalla 
kielellään. 

Jokapojan laite LISA ei missään tapauksessa ole: Minta on USA:ssa n. 
USD 10.000,00. Vielä tänä vuonna APPLE julkistaa kuitenkin riisutun 
version, joka on nimeltään MACINTOSH. Sen hinta saattaa olla vajaan 
dekadin LISAa huokeampi. 

Eräs lehti ehtikin jo ihmettelemään, onko huippukalliin version 
jälkeen välittömästi halpaversion julkistaminen viisasta politiikkaa. 
Ainakin se on uhkapeliä. Jos peli epäonnistuu, saattaa APPLE-yhtiölle 
olla siltä melkoista vahinkoa. 

Tuntuu siltä, että aivan pian tullaan menemään suurempia toimivia 
kokonaisuuksia sisältäviin mikrotietokone- laitteistoihin, joiden 
käyttäjäystävällisyys parantuu tuntuvasti. Eikä tarvitse välttämättä 
olla spesialisti taikka tietokone-fan tullakseen toimeen varsin 
monimutkaistenkin ohjelmistojen ja laitteistojen kanssa. 

Välillä tuo jatkuva diskettien vaihtaminen, lataus ja orientoituminen 
näppäimistön uusiin toiminteisiin tuntuu rasittavalta. Työn teko 
hidastuu Ja virheet lisääntyvät. 

Mielenkiintoinen tuntuu olevan kehitys aivan lähitulevaisuudessa. Eri 
asia on sitten kestääkö kukkaro tuota kehitystä. 


Papi Juntura: 

AIMANAKM M MMI) 


Ostin Ananas Computer Bausatz tietokoneen mkiMin.n,,» i j.m Mik„il,ii;iL>lta 
R. Springmannilta. Ilmoituksen huomasin MC- lehdeu^ii pinkuun hi|julla 
ensikerran. Mietin asiaa pari kuukautta, Jonka jälkeen Uinnin 
kyseisen rakennussarjan 16. lokakuuta 1982 lilkesheklllä. Kunetta ei 
kuulunut, ja vihdoin soitin Saksaan joulukuun alussa. Tällöin 
Springmann sanoi lähettävänsä koko "einsteiger angebot" ylihuomenna. 
Olin huolestunut ja kummastelin tilannetta, jolloin liikekumppani 
valitti ettei ollut saanut kaikkia komponentteja aikaisemmin ja halusi 
lähettää sarjan kokonaisuudessaan kerralla. Joulu vilahti ohi ja hyvä 
rakennusaika eli joululoma jäi myös taakse. Tuli sitten keskiviikko 
tammikuun 6 päivä ja postista tuli kortti kirjatun lähetyksen 
saapumisesta. 

Kävin ruokatunnilla hakemassa paketin ja totesin sen olevan täynnä 
styrox-liusketta ja siellä seassa olivat myös "Applen" peruslevy, 
levykeasema ja näppäimistö sekä virtalähde. Tämän olin tilannutkin eli 
kaikki oli tullut. Kootessa huomasin yhden vastuksen puuttuvan, muuten 
komponentteja oli täsmälleen oikea määrä. Kokoamiseen meni tuttavan 
pikku avustuksella kahdeksan tuntia, josta suurin aika meni 
peruslevylle kuuluvien komponenttien juottamiseen. Kokoamia järjestys 
an mielestäni vapaa paitsi mikropiirit ja transistorit viimeiseksi. 
Kun olin huolellinen tinauksessa ei mitään hämminkiä päässyt 
syntymään. 

Yritin käynnistää perjantaina 7.1.-62. Ei toiminut» Näppäimistöstä 
löytyi kumma vipu, jonka merkitystä en vieläkään tiedä, mutta kun 
käänsin sen toiseen asentoon ja trimmasin kiteen läheisyydessä olevaa 
trlmmeriä niin jopa ilmestyi näyttöön "Apple II" ja perään kuului 
kaiuttimesta pimaus. Kytkin levykeaseman paikalleen ja hyvin buuttasi. 
Levykeasema käy noin neljä sekuntia sen jälkeen kun kursori on 
ilmestynyt kuvaruudulle, muutoin en ole yhden käyttökuukauden jälkeen 
huomannut mitään Applesta poikkeavaa. - Koko paketti tuli maksamaan 
noin neljä ja puoli tuhatta markkaa. 
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Juha Pousi : 

KLOONATTU OMENA 


Jokainen Appleharrasta ja tietänee, että Suomesta saa tai^anilaisia 
Applekopioita, jotka makaavat noin puolet alkuperäisten hinnasta. Nyt 
näitä Bebek 0Y:n maahantuomia kopiokakkosia saa myös oululaisesta 
Tietosukkula-liikkeestä. Olen hieman tutustunut näihin laitteisiin, 
myös lisäkortteihin ja kerron tässä huomioitani. 

Ensinnäkin itse tietokone on ulkoa samoinkuin sisältä melkein 
täydellinen kopio Apple II:esta. Tuuletusreikiä on kopiossa vähemmän 
ja irroitettavassa konehuoneen kannessa on erilainen kuviointi. 
Lisäksi koneessa ei ole Apple-logoa tai yleensä mitään nimeä. Kopion 
materiaali ei ole niin tuhtia muovia kuin aidon (tiedä sitten miten 
interferenssihäiriöitä esiintyy kopion käytössä). Silti kopion 
ulkonäöstä saa positiivisen ja asiallisen vaikutelman. Kuten arvata 
saattaa, vastaavat myös sisukset Applea, nyt jopa täysin suhteessa 
1:1. Ainoastaan kaikki Apple-logot on karsittu pois. Olen kokeillut 
kahta eri kopioyksilöä. Toista vaivasi ilmeisesti jonkin piirin 
kosketushäiriö, sillä kone hyppäsi silloin tällöin itsestään Apple- 
softista konekieleen. Toisessa yksilössä ei tätä vikaa ollut, vaan se 
toimi luotettavasti. Mainittakoon, että olen ollut tekemisissä aitojen 
Apple-tietakaneiden kanssa, joissa myös oli vaivana tuo hyppääminen 
monitorikieleen. 

Mitä muuta kopiosta voi sanoa? Eipä paljoa, sillä omena mikä omena, 
vaikka olisikin pistokas. Kaikki Applen ohjelmat toimivat niinkuin 
pitääkin. 

Kalvolevyasemat , joita kokeilin, olivat ehkä jopa laadukkaampia kuin 
Applen vastaavat. Kopiosta ei tässä tapauksessa voine puhua, sillä 
nämä drivet ovat ns. slim line-malleja ja myös tekniikaltaan 
kehittyneempiä kuin Applen drivet, ainakin ne ovat hiljaisempia. 

Kokeilin myös erilaisia kortteja. Kaikki toimivat moitteettomasti: 
Integer-kortti oli näppärä; kielikortti toimi hyvin sitten kun siihen 
oli saatu kaapeli, joka yhdistää kortin ja tietokoneesta irrotettavan 
IC-piirin kannan. Tämä kieli- (tai pikemminkin RAM-)kortti oli niin 
tarkka kopio alkuperäisestä, että siinä luki Microsoft, made in USA, 
ja ainoastaan pienestä irroitettavasta tarrasta paljastui totuus: made 
in Taiwan. Z-80-kartti, vaikka sitä ei sentään itse tuotteessa 
mainittukaan, oli ilmeisesti myös Microsoft-kopio, sillä kopiokortti 
toimi vain Softcardin disketin kanssa. Tässä siis joutuisi ostaja itse 
hankkimaan käy ttöoh jelman sekä manualin, sillä näitä ei missään 
kortissa ollut mukana. Näitä puutteita on tietysti verrattava 
tuotteiden hintatasoon. Alkuperäinen Microsoftin Softcard maksanee 
noin 2500 mk ja tämän kopio noin 500-700 mk. Muita kokeilemiani 
kortteja olivat Epson-interface-kortin kopio ja kantrollikortti 
levyasemiin. Kokeilin alkuperäisiä laitteita ja kopiotuotteita 
kaikissa kombinaatioissa, ja ne toimivat hyvin yhteen lukuunottamatta 
mainitsemaani tietokoneen vikaa. 

Kun kopioiden hinnat ovat ainakin **0% alhaisemmat, korttien paljon 
alhaisemmatkin, niin houkutus liittyä piraattien veljeskuntaan on 
suuri... (ainakin korttien osalta peruscombo kun minulla jo on). 


Tero Sand & 
Markku Siivola 


PUUSTA PUDONNEITA 
eli 

viimeksi varisseita 


OOSSEISTA 


DOS-ohjelmissa on tapahtunut räjähdys. Monta vuotta uhkasivat Apple 
Computerin DOSsia vain pikkunäpräily t DOSsissa - jotka sinänsä 
saattavat olla käteviäkin - kuten viime OMENAHYVEEN Filedump ia 
Freespace-rnuutokset. Tuskaantuminen sen erilaisiin haittoihin 
vallankin nopeuteen, alkoi synnyttää yhä enemnän korjailtuja 
versioita, ja vuoden ajan onkin uusia DOS-ohjelmia versonut 
sädesienien tavoin. Aikaisempi sangen tunnettu Uhiversal Boot 
. nit ?:?:i^ r on "V* uusinut itsensä The DOS Enhanceriksi eli TDErksi 
ja väittää, ettei vanhan DOSsin korjailusta ole enää kysymys, vaan ' 
flnn?i n r , ^ajoittamisesta, ja on tällä hetkellä ilmeiseni ainoa 
Apple Computer Inc.: in lisensoima tällainen ohjelma. Hyvää siinä on 
myds kielikortin erittäin nopea lataus esim. Integer Basicilla, BIG 
MACilla jne. Riesaksi saa sitten ihmeellisiä ilmiöitä suoraan DOSsin 

5C!?L n8UW ? t Äi 1 i?!( 1 S« ? 0hjBlmlen kanssa " Tämän haitan vähentämiseksi 
näyttää uusi DAVID-DOS mainostavan entry oointtiensa olevan samoja 
kuin Applen omassa DOSsissa. J 

Appleklubikin alkaa juurtua amerikkalaisten liikemiesten 
tietoisuuteen. Postista saapuu erilaisia tarjouksia kuten 
kopiointikorttimainoksia, neljännesvuosittain ilmestyvää uutta 
korkeakoulu- ja yliopistomikrotietokonelehteä Collegiate Microcomputer 
tdc T^P 03 * 1333 Suoleen/vuosi, osoitetarroja. Näyttävät Applen 
1*5-80 :n ja PETin ostajien osoitteet maksavat noin $50/1000 kpl. 

Sw? ml** T 3aVat , 3125/2500 k P X - Tar j° U3 °" m vös "ikronäyttelyissä 
kävijöitä, mikrokirjojen ostajia, LOGOh käyttäjiä. Edgar Caycen 

lukijoita, vaihtoehtoisenergian/elämäntavan kannattajia, kirjallisuus- 
pa fJ° PO^J^iaia. "ais- ja homoseksuaali järjestä jä Jne Jne myy 
tama firma myos. «Resurssi lehteä» saa myös tilata, automatisoida 
postituksensa heidän avullaan jne. Kiinnostaako? Kysykää tarkemmin 
klubin toimistosta. 

Eksoottisin myyntitapa tuntuu olevan DIVERSI DOSsilla joka pistää 
S^n^c^ 8 ^ 6 ^ fileiden Esittelyyn puhtia (kuten mainostaa myöa 
DAVID-DOS). HGR-kuva latautuu parissa sekunnissa, Ja mitä 
pidempi file on, sitä huomattavampi on ajansäästö. Katsokaapa Public 
Dornain diskien kohdalta, miten voitte saada sen ilmaiseksi 
kokeiltavaksi - mutta vain kahdeksi viikoksi! Sen jälkeen on joko 
lakattava käyttämästä ohjelmaa tai lähetettävä valmistajalle $25. Tätä 
myyntitapaa voi puolustaa sillä, että voi todella rauhassa tutustua 
ko. ohjelmmaan ennen ostopäätöksen tekemistä, mutta ne, jotka uskovat, 
ettei ihmisen oman rehellisyyden varaan voi jättää mitään, saattavat 
ajatella tämän myyntitavan muodostuvan heikolle luonteelle liian 
suureksi houkutukseksi. Kuinka on, klubilaisef 


VARISEE, VARISEE... 

Devalvaatio nosti hintoja - mutta ei riittävästi estääkseen meillekin 
yna halvemmaksi käyvän tietokonetavaran ilmestymisen. Mitä sanotte 
Applen driven hinnasta $225 (ilman kontrollerikorttia)! Itse Apple 
Computer myy UK Apple II:sta yhden driven & kontrollerikortin, 
monitorin Ja telineen Kera alle kahdentuhannen dollarin, 
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aikaisemmin $2600. Liekö raivaa raivaa tilaa uudelle tammikuussa 
julkistetulle LSI-versiolleen Apple II-E:lle, josta Juhani Viherlahti 
kirjoittelee toisaalla tässä numerossa. Hän kertoo samalla myös 
uudesta 720x36*4 HGR-resoluutian ym. muuta mukavaa omaavasta LlSAsta. 


TOIMIT! IMISTA 

Appleen tehtyjä prosessorikortte ja onkin alkanut ilmaantua tiuhaan 
tahtiin, nyt niitä lienee jo kymmenkunta. 

Microsoftin Z-60 kortti oli ensimmäinen, ja nyt ovat kaksi muuta 
yhtiötä myymässä omaa Z-80 versiotaan, paras lienee Personal Computing 
Products :n APPLI-CARD, jossa on joko tai 6 MHz prosessori, 63K RAMia 
sekä 70 kolumnin näyttö ILMAN harduarea! Hintakin on näiden kykyjen 
mukainen, kokoonpanosta riippuen $395-$595. Microsoftin Softcardia 
myytäneen $300:n kieppeillä. Paitsi esim. Sveitsissä näytetään 
myytävän ZBO-kortin jäljitelmiä murto-osahinnalla . 

Edellisessä QMENAHYVEessä mainittiinkin jo ALFin tuottama AD 8088, 
joka antaa CP/M:n lisäksi mahdollisuuden muokata APPLESOFT-tulkkia 
siten, että tämä käyttää 8088-prosessoria matemaattisissa laskuissa. 
Nopeuden lisäys on 2-3 kertainen, compailattu APPLESOFT saattaa olla 
jopa 5 kertaa nopeampaa! Erittäin kiintoisalta vaikuttaa myös 8088:a 
käyttävä Lontoossa esitelty PLUTO-videoplotteri : 100000 pixeliä/s, 
192K erittäin nopeata muistia, 16 miljoonaa väriä, resoluutio 
kauhistuttavan hyvä ja hinta vain 600 puntaa. 

Edellisen kaltainen on Coprocessorsin myymä $899 maksava 88Card, jolla 
voi ajaa CP /M 86 -järjestelmää. CP/m-86:tta käyttävät monet erilaiset 
tietokoneet, mm. DEC Rainbow 100 sekä I8M PC, joten tällä kortilla on 
varmasti menekkiä mm. Appleja omistavissa yrityksissä. 

The Mill on Stellation Tuo:n myymä $**95 maksava kortti, joka sisältää 
6809-prosessorin. Stellation Tuo tarjoaa mahdollisuuden muokata sekä 
Applesoftia että Pascalia nopeammiksi. 8088-proses sorin tapaan tämä 
nopeuttaa ohjelmia siltä osin kuin ne käyttävät matematiikkaa. 

Edellisen tapainen mutta pelkästään matemaattisiin toimintoihin 
erikoistunut kortti on Computer Stationin markkinoima 95 11 -prosessoria 
käyttävä The Fast Floating Point Soard, joka saf tuareineen maksaa 
$V75. Tälläkin kortilla voidaan parantaa Applesoftia ja Pascalia, 
mutta lisäksi myös Fortrania. Esimerkki kortin kyvyistä olkoon se, 
että Applesoft laskee 1000 neliöjuurta 51 sekunnissa, kun FFP laskee 
saman 5 sekunnissa! 

Tämän hetken tehokkaimmaksi prosessoriksi mainittu 68000 on Appleen 
saatavissa Digital Acousticsilta hintaan $627 12K kera tai 
maksimimuistimäärällä 92K $927. 68000 toimii 8 (tai 12.5) MHz 
kellotaajuudella, mutta Motorola lähettelee siitä tällä hetkellä jo 
peräti 16 MHzillä jyllääviä näytekappaleita. Siinä on 16 bitin data 
bus sekä 2k bitin address bus, joka tarkoittaa sitä, että prosessori 
pystyy käsittelemään 16 MB! Rekistereitä siinä on 18, kaikki 32 
bittisiä! Sen käyttö vaatii vielä pioneerihenkeä, sillä ohjelmistoa 
on tälle prosessorille vielä kovin vähän. Kohta tulee halvempia 
versioita dynaamisilla RAMeilla, nykyiset ovat staattisia. 

Itse 68000 on liian suuri Applen sisään, se on äitilevyn kokoinen, 
joten se joudutaan yhdistämään Appleen erillisen interface-kortin 
kautta. Myös 68000 pystyy nopeuttamaan Applesoftia, joskin nopeuden 


IntT* 9 61 vllättävää k ^ llä ale kovin paljon suurempi kuin ALFin AO 
80 88. 

Kaikkien edellisten korttien ongelmana on niiden potentiaalista 
huolimatta - SflCardia enkä lukuunottamatta - joko se, että ne 
nopeuttavat vain aritmetiikkaa, tai se, että niiden muita 
ominaisuuksia hyödyntävää softista ei ole tehty. IMäin ei ole laita 
Number Nine Computer Engineeringin markkinoiman The Booster Systemin 
joka on 6502C, joka on 3.6 MHz kellotaajuudella paljon nopeampi 
6502 :sta. Sen etuna on myös se, että se pystyy toimittamaan KAIKKIA 
Appleen saatavaa softuarea, myös suojattuja. Itse prosessori maksaa 
$350, mutta saadaksesi hyödyn irti kortista täytyy ostaa 32K 
staattinen RAM-kortti hintaan $670. Nopeustestissä, missä toimitettiin 
joko Applesoftia tai compailattua Applesoftia, 6502C selvisi toiseksi 
nopeimmaksi vain hiukan 6800D:a jäljessä. 

GTE Microcircuits^in pitäisi saada tässä kuussa eli helmikuussa 1983 
sarjatuotantoon CMOS-tyyppisen 6502:n eli G65SC02:n. Vanha on 
NMOS-tyyppiä. Ujsi sisältää 27 uutta operaatiokoodia, kuten mm. x- ja 
y-rekisterien ja pinon välinen tiedonkulku kumpaankin suuntaan ilman 
akkua, uusi osoitustapa, DMA-mahdollisuus, 1 - 4 MHz, virrankulutus 
4mA/MHz, epäsuoran hyppykäskyn JMP (Cfcer.) sivun inkrementointibugi on 
korjattu jne. 

ALF aikoo piakkoin - huhujen mukaan ennen joulua - julkaista 
grafiikkaa parantelevan paketin nimeltä AOGS, joka käyttää yhtiön omaa 
AOSOaa-korttia. Tätä tultaneen myymään n. $145 hintaan. Sillä voidaan 
nopeuttaa Applen graf iikkakäsky jä, esim. HGR, HPLOT ja DR AU nopeutuvat 
huomattavasti. ALF tekee myös sof tispakette ja, joilla voi piirtää 
kolmiulotteisia kuvia ja värillisiä kirjaimia. Se lisää Applen värejä 
ja paddlejakin kahdeksaan. Alueen täyttö väreillä sekä HGR-alueen 
scrollautuminen ovat muutamia niistä asioista, jotka nopeutuvatt niin 
huomattavasti, etti niiden käyttö on mielekästä. Huomattavaa on, että 
nämä kyvyt ovat kovolaitteena jatkuvasti käytettävissä ja näin ollen 
helpommin käytettävissä kuin diskillä olevat hyötyohjelmat. ADGS-n Ja 
A08088:n yhdistetty hinta tulee olemaan $490, joka sisältää kaiken 
tarpeellisen tiedon ja dokumentaation. ALFilta tulee myös 
A0128-RAM<ortti, jossa on tilaa INTEL 8087 numeroprosessorille. 


MUISTETTAVAA 

Vista on tuonut markkinoille V1200 viiden lerppulevyn pakkadriven. 
Kukin levy vetää 1.2 to, joten koko roska käsittelee 6 miljoonaa 
byteä. Tämä tapa ratkaisee kovalevyjä vaivaavan back-up-ongelman. 
Hinta per byte on noin kova levy luokkaa. Hinta: $1549. Toinen toistaan 
kapeammiksi näyttävät nämä asemat myös käyvän ja kiipeävän iär lestään 
kohti miljoonaa merkkiä. 

Floppytaistelun rinnalle on nyt noussut yhtä kova kovalevytaistelu. 
Erimerkkisiä levyasemia suorastaan vilisee joka mikrolehden sivuilla. 
Mainittakoon tässä vain esim. että 3.9 tuuman kovalevyjä on pantu 
kaksi tavalliseen viiden tuuman lerppulevykotelon tilaan, 
kapasiteettia on 6.38 megabyteä, kasettikovalevy jäkin jo'saa Jne. 

16K ekapansiokorttia saa nyt valmiina $49:llä, kittinä $44: llä. Jotkut 
urheat firmat viitsivät kuitenkin vielä mainostaa niitä lähes 
puoleentoistasataan dollariin. 


Jotta valinta vaikeaksi kävisi, on tietenkin syytä mainita myös AXL0N 
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RAMDISK, kahta driveä vastaava muistiorganisaatio, taisi hinnaltaan 
olla hieman toista tuhatta dollaria, ja - toden totta - IlMTELin 
kuplamuisti - vihdoinkin todellisuutta Applelle. Hinta on ilmeisesti 
häveliäisyyssyistä jätetty vielä (tammikuu 1983) mainitsematta. 
Muistia on 128K, nopeus lerppuun verrattuna kolminkertainen - ei siis 
kovin nopea esimerkiksi AXlONiin verraten, mutta se mahtuu Applen 
sisään. Irtokuplia ei liene saatavissa, joten pysyväksi muistiksi se 
ei käy, vaan pikemmin työmuistiksi, josta työn loputtua tulokset 
siirretään taas takaisin klassiselle levylle. Sen ehdoton etu on 
muistettavan pysyminen siinä virran katketessa tavallisten 
ekspansiokorttien vaipuessa amnesiaan. Se on siis AXLDIMin kaltainen 
tässä suhteessa. INTEL tuo kohta markkinoille uuden neljän megabitin 
kuplamuistinsa, jonka datanopeus on kaksinkaertainen vanhaan yhden 
megabitin kuplaan verrattuna. Koko on jopa hiukan pienempi. 

Kehityksestä alkaa jo uskoa melkein mitä tahansa. Optiset levyt eivät 
vielä sentään ole tulossa Appleen. (?) Eikä niille voi kirjoittaa. 
Yhden kerran kirjoitukseen sopivia noin kymmenentuhannen megabitin 
levyjen voidaan odottaa saapuvan markkinoille ensi vuonna. Shugart 
puuhailee yhden gigabitin kertakir joitusvalolevyn kimpussa. Eipä 
paljoa haittaa moisessa tilassa se, että siihen voi vai kerran 
kirjoittaa, vallankin kun levy on vaihdettavissa. 

Puhetta ymmärtävät Appleen sopivat piirit paranevat koko ajan. Ne ovat 
kuitenkin puhujaan sidottuja eivätkä ymmärrä jatkuvaa puhetta johon 
suoritukseen tällä hetkellä tarvitaan 32-64 bitin suurinopeuksiset 
koneet. Parin vuoden päästä saattaa noin 500 sanan jatkuvaa puhetta 
ymmärtävät piirit olla todellisuutta. Puhujasta riippumattomat piirit 
antanevat odottaa itseään ainakin vielä viiden vuoden ajan. 

EEPROMit eli elektronisesti pyyhittävät muistipiirit kuuluttavat 
EPROMien aikakauden lopun alkua. Vain viidellä voltilla toimivat 
versiot ovat tulossa. Kummatkin tyypit kyllä ohjelmoidaan sähköisesti, 
mutta EPROMithan joutuu puhdistamaan ultraviolettivalolla. EEPROMit 
maksavat vielä 8-10 kertaa enemmän kuin EPROMit, mutta hintojen 
ennustellaan putoavan kakkoskertaluokkaan kolmessa vuodessa. 32K 
EEPROMeja voidaan odottaa vuonna 1983 ja 6**K kolmen vuoden kuluttua. 
Zilogln Z8:sta saatetaan puuhailla EEPROMla , jolloin nähtäisiin 
mahdolliisesti adaptiivinen mikroprosessori, joka pystyisi 
muuttelemaan itseään ohjelman kuluessa. 


SAMPO VIEKÖÖN 

Hyvät ideat on Suomesta ennenkin varastettu ulkomaille. Kuten 
taiuanilainen Applen luokassa painiva - SAMPO' Se ei kuitenkaan ole 
Applekopio. 

Uudessa Seelannissa valmistuu Orange, Applen kopio. Indonesiassa ja 
Singaporessa myydään Apple-jälji telmiä $200:n tienoilla. Jo yli 50 
pikkufirmaa suoltaa Applekopioita ehkäpä noin 5000 kappaleen 
kuukausivauhtia. Käytännöllisesti katsoen mitä tahansa pelejä saa 
niiltä tienoin puoli dollaria pelkkää tyhjää diskiä kalliimmalla 
hinnalla. Kaupallisia ohjelmistoja myydään valtavilla alennuksilla. 
Näinhän siinä käy, myös länsimaissa, jotka ovat alkaneet tilailla em. 
kopioita idästä. Euroopan eri maiden välillä on näiden koneiden 
postimyyntiä jo käynnissä. 

Koneiden hinta laskee, mutta myös ohjelmistojen - länsimaissakin. 
Käyttäjäklubit ja Kaukoidän halpahallit seuraavat kaupallisten 
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ohjelmistojen kintereillä muutaman kuukauden tai vuoden välimatkan 
päässä. Oi povailtu, jotta ohjelmistojen hintojen pienetessä taitaa 
uusien versioiden ja ohjekirjojen toimitus nousta yhä tärkeämmäksi 
toiminnaksi itse alkuperäisoh jelman myyntihintaan verraten. 

Kaukoidän Apple- jäi jitelmät eivät ole saaneet jalansijaa 
Yhdysvalloissa. Apple taistelee niitä vastaan ainakin Uudessa 
Seelannissa, Taiuanilla ja Hong Kongissa. Apple Inc. on päässyt niskan 
päälle oikeuskamppailussa taiuani laista Apolo ii:sta vastaan 
Hollannissa ja Pineapple-merkkistä kopiota vastaan on taistelu USAssa 
meneillään. Neljä hongkongilaista Applenmatki jaf irmaa on jo hävinnyt. 
Sitä vastoin länsisaksalainen Basis 108 on päässyt aloittamaan USAn 
myyntinsä. Katso edellinen QMENAHYVE, jossa mainittu Frankilin ACE :n 
Apple Computer Inc:iltä vaatima 50 miljoonan dollarin 
vahingonkorvausvaatimus taitaakin alla yli 150 miljoonaa dollaria. 
Apple puolestaan ei ole saanut kannettaan Franklinia (joka on 
ennättänyt saada jo uuden mallinkin liikkeelle) vastaan oikeudessa 
läpi. Kauppakomissio ei katsonut aiheelliseksi tehdä mitään 
tutkittuaan, onko Apple menetellyt väärin sanottuaan irti posti- ja 
puhelinmyyjänsä. 

Englantilainen DIGISOLVE on tuonut markkinoille 512 x 512 
grafiikkakortin Applelle. Kahden HGR-kuvan bufferi ja 64 väriä ovat 
siihen tulossa. Hinta 160 puntaa + lvv. 

Englannista tulee myös oikein sievä ja pieni game connectoriin 
napsautettava levy, joka sitten näyttää ruudulla "analogisen" kellon, 
joka käy vielä vuoden virran loppumisen jälkeenkin, hälyttelee 
tarvittavina aikoina hälytyssyyn selvittelyn kera, painaa niistä 
listankin jos tarvis, sisältää pikkukirjaimet, eri kir jainkorkeuksia 
ja tyylejä ja yhteensä kuusi eri muotoa tämän kaiken esittelemiseen 
ruudulla. Pelivempaimia voi kellosta huolimatta käyttää kuten 
ennenkin. - Pyytävät siitä 60 puntaa. 

Litteät näytöt kehittyvät, ja vuosi 1983 taitaa nähdä useita todella 
kannettavia tietokoneita. Tähän astihan on monitori täytynyt raahata 
erikseen mukana. Apple Computerkin kuulemma suunnittelee tällaista. 
EPSON on jo muuten saanut oikein pienen ja sievän LCD-näy ttöisen alle 
800 dollarin tietokoneen markkinoille. Plasmanäy tötkin (neon/argon - 
kaasusekoite) ovat myöhemmin tulossa. Sony on julkistanut oman vain 
30-50 volttia tasa jännitettä tarvitsevan 1024 x 512 näyttönsä. 


o o o 


Mihin Applella ja suomalaisuudella voi päästä? Apple Computer Inc: in 
suomalaissukuisen Mike Markkulan kuukausitulot ovat noin 80000 mk. 
Siitä vaan esimerkkiä seuraten kultaan ja kunniaan! 
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Ilkka Blom: 

OHJELMAN AUTOMAATTINEN LATAUS YLÄMUISTIIN 

Joskus on tarpeellista ladata Basic-ohjelma normaalista alkupaikasta 
($800 heksa) poikkeavasta paikasta alkaen. Näin esim. silloin kun: 

a) Ohjelma on pitkä ulottuen tarkkuusgraf iikka-alueelle HGR1 asti, 
joka alkaa paikasta $2000. Jos samalla käytetään tarkkuusgraf iikkaa , 
näkyy ohjelma pisteinä kuvassa ja HGR-käsky tyhjentää grafiikan 
tuhoten samalla ohjelman! 

b) Basic-ohjelma käyttää konekielisiä aliohjelmia, jotka on tehty 
alkamaan esim. osoitteesta $800. 

Sopiva alkuosoite on $6000, joka on juuri HGR2 : n yläpuolella. Nyt 
voimme käyttää tehokkaasti vaikkapa molempia HGR-sivuja. Levyasemaa 
käytettäessä on tilaa muistissa nyt aina osoitteeseen $9600 asti. Jos 
tila ei sittenkään riitä, on POKE-käskyillä mahdollista asettaa 
muuttujat ja taulukot alkamaan osoitteesta $800 ylöspäin. 

Seuraava lyhyt asetusoh jelma on muotoutunut manien kokeilujen ja 
hankaluuksien jälkeen. Se kirjoitetaan pääohjelman alkuun, ja kun 
ohjelma luetaan disketiltä, tapahtuu heti perään uusi lataus 
automaattisesti alkaen alkuosoitteesta $6000. Ohjelmaa voidaan sitten 
käsitellä aivan normaaliin tapaan. Esimerkissä on ohjelman nimeksi 
disketillä oletettu "ohjelma". 

Tietenkin REMmit voidaan jättää pois, mutta POKE-käsky jen kanssa on 
oltava äärimmäisen varovainen; jos esim. rivillä 30 luvut 96 yritetään 
korvata kirjainmuuttujalla, menee Apple todennäköisesti täysin 
tilttiin suorittaessaan tätä riviä. Edes RESETillä ei ole mitään 
vaikutusta, joten virta täytyy välillä katkaista ja ohjelma 
tuhoutuu! 

10 POKE 2^576,0: REM 00 MUISTIPAIKKAAN $6000 (HEKSA) 

20 IF PEEK (10<O * 96 THEN 50: REM EI UUTTA LATAUSTA, 
JOS OHJELMA JO HALUTULLA PAIKALLA 

30 POKE 10**, 96: POKE 106,96: POKE 108,96: POKE 110,96: 
REM ASETUKSET UUTTA LATAUSTA VARTEN ALKAEN MUISTI- 
PAIKASTA $6000: REM 96 ON HEKSA 60 

M3 PRINT: PRINT CHR$(<0; "RUN OHJELMA" : PRINT: 
REM CHR$(tO = CTRL D: RtM UUSI LATAUS JA AJO 

50 REM VARSINAINEN OHJELMA ALKAA 


Toim. huom.: Alla John Rodgerin samaa asiaa toimittava ohjelmapätkä 
Call-A.P.P.L.E.sta tammikuulta 1982, jossa hän käyttää 
integervariaabeleita. 

1 A =. 2^576 :N$ = "PROGRAM NAME" : H 

% = A / 256:L% = A - H% * 25 
6: IF PEEK (103) - L% ANO PEEK 
OOtO = H% THEN 3 

2 POKE 103, L%: POKE 10<*,H%: POKE 

A - 1,0: PRINT CHR$ (<0;"RU 
N W ;N$ 

3 REM REST OF YOUR PROGRAM 


Aapi Juntura: 


APPLE SOITTIfCKSI 


Huomasin italialaisessa BIT-lehdessä U M 17 vuodelta 1981 olevan App- 
lelle laaditun ohjelman nimeltä La Mela Musicale. Ohjelman avulla voi 
soitella Appplella pianonomaisesti ja voi toistaa kerran soitetun sä- 
velmän ja lisäksi taltioida sen levylle. Artikkelin laatija oli Rober- 
to Zacco. 

Suomentelin ohjerivit, ja jonkin aikaa soiteltuani lisäsin ohjelmaan 
nuottien kirjoi tteluosan. 

Myt voitaisiin kehua ohjelmaa jopa musiikin opetusohjelmaksi, koskapa 
samalla kun soitat tai toistat soittamaasi tulevat samanaikaisesti 
nuottimerkinnät näkyviin. En ole pystynyt ratkaisemaan miten puolisä- 
velaskeleet tulisi merkitä. Tämä johtuu siitä, että sama nuotti voi 
olla joko ylennetty tai alennettu. 

Ohjelma on vielä monin osin puutteellinen, ja esittelenkin sen lähinnä 
asiasta kiinnostuneiden edelleen kehiteltäväksi. Sävelen toistonopeu- 
den voi muuttaa (koko sävelmä), hiljaisuutta saa painamalla space-nap- 
pulaa. Koskapa muunlaista tempon säätöä ei ole, voi toistettu musiikki 
tuntua kovastikin erilaiselta kuin alkuperäinen soitto. Ohjelmaa voisi 
kehitellä niin, että se huomioisi pimputeltaessa kaikki taukojen pi- 
tuudet. 


Kokemuksesta voin sanoa taitavan muusikon pystyvän hyvältä kuulosta- 
vaaan sortantaan. Sävelmän voi tehdä vartavasten tätä soitinta varten, 
jos ei muuten tyydytä. 

Nä PP*in W TUO S F J L X B M 

m i m iin m i in 


Näppäin 
Sävel 
Hz 


C 

261 


349 


440 


494 


0 
o 

S87 


H 
r 

698 


880 


V 
c 
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N 
D 

11751 
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LA MELA MUSIC AL E 


10 

HOME : UTAB 10: HTAB 12: PRINT 




"LA MELA MUSICALE": FOR T = 

340 

POKE 768,74 


0 TO 3000: PCXT 

350 

8% = 16 

20 

HIMEM: 37000 

360 

RETURN 

30 

CHMERR GOTO 181Q:A = 0 

370 

POKE 768,132 

40 

HCOLOR= 3 

380 

8% = 28 

50 A = 37 

390 

RETURN 

60 

POKE 770,173: POKE 771,48: POKE 

400 

POKE 768,69 


772,192: POKE 773,136: POKE 

410 

B% = 15 


774,208: POKE 775,5: POKE 77 

420 

RETURN 


6,206: POKE 777,1: POKE 778, 

430 

POKE 768,65 


3: POKE 779,240: POKE 780,9: 

440 

BX = 14 


POKE 781,202 

450 

RETURN 

70 

POKE 782,208: POKE 783,245: POKE 

460 

POKE 768,62 


784,17/*: POKE 785,0: POKE 78 

470 

B% = 12 


6,3: POKE 787,76: POKE 788,2 

480 

RETURN 


: POKE 789,3: POKE 790,96: POKE 

490 

POKE 768,98 


791,0: POKE 792,0 

500 

BX = 22 

80 

DIM AXOOOO): 

510 

RETURN 

90 L = 70:1 = 0:XX = 0 

520 

POKE 768,58 

100 

VT AB 23: PRINT "SOITA :ESC M 

530 

BX = 11 


ENU : - POISTO: RETURN UUDEL 

540 

RETURN 


LEEN 

550 

POKE 768,55 

110 

HGR : GOSUB 2140 

560 

BX = 10 

120 

GOSUB 2080 

570 

RETURN 

130 

GET A$:X = ASC (A$) - 64 

580 

POKE 768,52 

140 

IF X = - 19 THEN 1=1-1: 

590 

BX = 9 


GOTO 130: REM MIINUS 

600 

RETURN 

150 

IF X = - 51 THEN HGR : GOSUB 

610 

POKE 768,35 


2140: GOTO 1080: REM RETURN 

620 

BX ■ 1 

160 

IF X = - 32 THEN X = 27: REM 

630 

RETURN 


SPACE 

640 

POKE 768,37 

170 

IF X * - 37 GOTO 1660: REM 

650 

BX = 2 


ESC 

660 

RETURN 

180 

IF X < 1 OR X > 27 GOTO 130 

670 

POKE 768,92 

190 

ON X GOSUB 250,280,310,340,3 

680 

BX - 21 


70 , 400, 430, 460,490, 520, 550, 5 

690 

RETURN 


80,610,640,670,700,720,750,7 

700 

BX ■ 20 


80,810,840,870,900,930,960,9 

710 

RETURN 


90,1020 

720 

POKE 768, 150 

200 

IF X = 27 GOTO 230 

730 

BX = 30 

210 

POKE 769, L 

740 

RETURN 

220 

CALL 770 

750 

POKE 768, 123 

230 

GOSUB 1040 

760 

BX = 26 

240 

GOTO 120 

770 

RETURN 

250 

POKE 768,82 

780 

POKE 768,77 

260 

BX = 18 

790 

BX = 17 

270 

RETURN 

800 

RETURN 

280 

POKE 768,39 

810 

POKE 768, 116 

290 

BX = 3 

820 

BX * 25 

300 

RETURN 

830 

RETURN 

310 

POKE 768,43 

840 

POKE 768,103 

320 BX = 6 

850 

BX = 23 

330 

RETURN 

860 

RETURN 



870 

POKE 768,41 



880 

BX = 4 



890 

RETURN 
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900 POKE 763, 140 
910 B% -= 29 
920 RETURN 
930 POKE 768, 46 
940 8% = 7 
950 RETURN 
960 POKE 768,110 
970 8% = 24 
980 RETURN 
990 POKE 768,49 
1000 B% = 8 
1010 RETURN 

1020 FOR T = 1 TO (2 *L): NEXT 
T 

1030 RETURN 
1040 1=1+1 

1050 IF I = 1001 THEN I = 1 

1060 A%(I) = X 

1070 RETURN 

1080 A = 37 

1090 XX = 4 

1100 FOR J = 1 TO I 

1110 X = A%(J) 

1120 ON A%(J) G05U6 250,280,310, 
340,370,400,430,460,490,520, 
550 , 580 , 6 10 , 640 , 670 , 700 , 720 , 
750,780,810,340,3^0,900,930, 
960,990,1020 

1130 POKE 769, L 

1140 IF A%(J) = 27 THEN 1160 

1150 CALL 770 

1160 G0SIJ3 2080 

1170 NEXT J 

1180 GOTO 130 

1190 REM 

UUSI SOITTONOPEUS 

1200 HOME 
1210 VTAB' 6 

1220 PRINT "TOISTONOPEUDEN VALIN 
TA» 

1230 VTAB 8: PRINT " ' 1 1 HITAAMMI 
N " 

12^0 VTAB 10: PRINT -•2' NOPEAMM 
IN ■ 

1250 VTAB 12: PRINT "'O' SOITTAA 

KORJATTUNA 
1260 VT AB 17: PRINT " NUOTIN PIT 
UUS* " ; 

1270 VTAB 17: HTA8 18: PRINT L; M 

VALITSE" 
1280 VTAB 20: HTAB 20: GET M 
1290 IF M < 0 QR M > 2 GOTO 1280 

1300 IF M * O THEN 1080 

1310 IF M = 1 THEN L = L ♦ 1 

1320 IF M = 2 THEN L = L - 1 

1330 GOTO 1270 


1340 

REM 

TALLENNUS LEVYLLE 

1350 

HOME 

1360 

VTAB 12 : HTAB 3 

1370 

INPUT " ANNA TEOKSELLE NIMI 


" ; NC$ 

1380 

PRINT 

1390 

D$ = CHR$ (4) 

1400 

PRINT D$ 

1410 

PRINT D$"OPEN"NC$ 

1420 

PRINT D$"UJRITE"NC$: PRINT I 

1430 

FOR S = 1 TO I 

1440 

PRINT A%(S) 

1450 

NEXT S 

1460 

PRINT L 

1470 

PRINT D$"CLOSE" 

1480 

GOTO 120 

1490 

REM 

LUKEMINEN LEVYLTÄ 

1500 

INPUT "ANNA LUETTAVAN NIMI 


";NC$:0$ = CHR$ (4) 

1510 

PRINT D$"OPEN "NC$ 

1520 

PRINT 0$"READ "NC$: INPUT I 

1530 

FOR S 1 TO I 

1540 

INPUT A%(S) 

1550 

NEXT S 

1560 

INPUT L 

1570 

PRINT D$"CLOSE ■ 

1580 

HGR : G0SU8 2140 

1590 

XX = 4 

1600 

GOTO 1080 

1610 

REM 

LOPETUS 

1620 

HOME 

1630 

VTAB 12: HTAB 18: PRINT "CI 


AO 

1640 

VTAB 20 

1650 

HOME : ENO 

1660 

REM 

MENU 


1670 

TEXT : HOME 

1680 

VTAB 4: HTAB 18: PRINT "MEN 


U " 

1690 

VTAB 5: HTAB 18: PRINT "=== 

1700 

VTA8 7: PRINT "D-UUSI SÄVE 


LMÄ" 

1710 

VTAB 9: PRINT "2 ) -TALLENNUS 


LEVYLLE 
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172Q VTAB 11: PRINT "3)-LUKEMINE 

N LEI/YLTÄ 

1730 UT AB 13: PRINT '%)-L'USI SOI 

TTONOPEUS" 

17M3 VTAB 15: PRIIMT "5)-LGPETTAA 

1750 VTAB 17: PRINT "0)-SOITTELE 

E ENTISTÄ 
1760 PRINT : PRINT "MIKÄ" ; : INPUT 

M 

1770 IF M < O (3R M > 5 THEN 1760 

1780 IF M > O THEN 1800 

1790 VTAB 22: PRINT "SAMA UUOELL 

EEN":XX = <*:Y = 0: GOTO 120 
1800 ON M GOTO 90, 13MD, U90, 1 190 

,1610 
1810 REM 

ERRORS 

1820 PRINT 

1830 ERR = PE EK (222) 

181*0 POKE 216,0 

1850 ONERR GOTO 1810 

1860 IF ERR = 5 GOTO 1910 

1870 VTAB 10: HTAB 15: PRINT "LO 

PETTAA SOITTELUN 
1880 VTAB 12: HTAB 12: PRINT " T 

ARVITSET OHJEITA" 
1890 VTAB 17: HTAB 18: PRINT "CI 

AO" 

1900 GOTO 1660 

1910 PRINT D$"DELETE";NC$ 

1920 PRINT 0$ 

1930 HOME 

19U3 VTAB 6: PRINT NC$;" EI OLE 

LEVYLLÄ M 
1950 VTAB 10: PRINT "1. LE\/YN SI 

SÄLLYSLUETTELQ" 
1960 \/TAB 12: PRINT "2. JOKU TOI 

NEN KAPPALE LEV/YLTÄ" 
1970 VTAB 1U: PRINT "3. PALUU ME 

NUUN" 

1980 PRINT : PRINT "MIKÄ" ; : INPUT 
M 

1990 IF M < 1 OR M > 3 GOTO 1980 

2000 ON M GOTO 2010,1^90,1660 

2010 PRINT : PRINT 

2020 PRINT 0$ 

2030 PRINT 0$"CATALOG" 

20^0 \/TA8 2k: INPUT " LUETAANKO 

(L) TAI MENU (M) VALITSE "; 

K$: IF K$ = "L" THEN 1<*90 
2050 HOME : GOTO 13U3 


2060 REM 
NUOTTIEN PIIRTO 
2070 HGR 

2080 XX x XX + U: IF XX > 275 THEN 

XX * 7:A = A + kO 
2090 Y * A - 32 + B% 
2100 IF M s Q OR X s 27 OR XX = 

U THEN 2130 
2110 IF Y < O THEN Y = O 
2120 HPLQT XX, Y TO XX + 2,Y + 2: 

HPLQT TO XX + 2, Y - 5 
213Q RETURN 
2U0 REM 

NUOTTI VI IVOJEN PIIRTO 

2150 H = 0: V = 190:H1 = 279:P1 = 

^:P2 =8 

2160 FOR BV * 1 TO k 

2170 FOR M s 1 TO 5 

2180 HPLQT H,P1 TO H1.P1 

2190 P1 * P1 ♦ U 

2200 NEXT 

2210 P1 « P1 + 20: NEXT 

2220 RETURN 
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Markku Siivola: 

UUSI ULJAS MIKROMAAILMAMME 


Vain aikuisille! Tämä juttu ei ole lapsille, jotka viattomuudessaan 
voivat haavoittua liian syvältä. Alle kaksikymppiset; onkos läksyt 1o 
luettu? J 

o o o 

Osta oma tietokone! Päästä perheesikin osalliseksi sen siunauksista! 

Pane lapsesi askartelemaan sillä itseään kehittäen, hakkaamaan 
tuntikausia näemmä aina yhtä aggressiivisia avaruuspelejä, kehittämään 
käden ja silmän yhteistyötä, tuota viimeksi Villissä Lännessä 
tarvittua äärimmäisen arvokasta ominaisuutta. Koululäksyistä ei 
silloin ole väliksikään. 

Entä opetusohjelmat? Afcjo yksinkertaiset ja jäykät opetuksen irvikuvat. 
Missä on persoonallinen opettaja, inhimillisyyden ja hengen kosketus? 
Missä tuo ainoa, joka sytyttää kaikkeen opittuun elävyyden, sen 
ominaisuuden, jota kautta opittu vasta asetetaan käytännön elämän 
palvelukseen. Osta kallis opetusohjelma, jonka kysymykset pystyvät 
tyydyttämään jotenkuten järjissään olevaa lasta korkeintaan pari kolme 
kertaa ennen hyllylle joutumistaan. Ja hienograf iikan käyttö: muutamia 
tökkiviä tikku-ukkoja tai milloin mitäkin kömpelöitä kuvioita 
yrittämässä opettaa lapsellesi jotakin elämästä. 

Osta oma tietokone! Yritä budjettiohjelmilla tasapainottaa tulosi ja 
menosi saatuasi ne ensin epätasapainoon tietokoneen hankinnallasi. 
Yritä alkeellisia BASIC-ohjelmia ensin. Kyllästy vihdoin havaittuasi 
taskulaskimen ja paperinpalan paljon tehokkaammaksi. Innostu sitten 
ostamaan oikein konekielikaupallinen ohjelma havaitaksesi sen avusta 
huolimatta bud jetointimenetelmässäsi aina uusia epäjohdonmukaisuuksia 
ja virheitä, joiden jäljittämisessä menee aina yhtä kauan aikaa. 
Huomaa elävän elämän sen seitsemine kuitteineen ja tositteineen tuovan 
aina uusia luokituksia, joita yrität tunkea vanhaan ohjelmaasi. 
Levyjesi kaaoksesta etsit erinomaista ohjelmaasi joka päivä uuden 
pikku kuitin takia, odotat ohjelman hidasta latautumista kunhan ensin 
olet saanut pienert koneorjasi kapinaan viedessäsi häneltä mahdolli- 
suuden tappaa kymmenettä aaltoa avaruuden hyökkääjiä. Juuri sen yhden 
kerran unohdat tehdä backupin, jolloin levysi hajoaa. Huomaat lopulta 
harkitun mappi systeemi n vanhaan analogiseen malliin olleen aina 
voittaja. 

Entäpä noiden Jokaisessa mikrolehdessä esitettyjen 
puhelinnumeromuistio- ja päiväkir jaoh jelmien surkea kömpelyys ja 
hitaus verrattuna tavallisen taskumuistion ja sormen nopeuteen? Tai 
tietokone puhelinvastaajana laittomasti liitettynä puhelimeen, joka on 
mahdollisimman kaukana tietokoneesi paikasta. Tajua vasta siinä 
vaiheessa, että koneessasi pitäisi ikuisesti olla tuo ohjelma päällä, 
Jotta se olisi parempi kuin etusormesi. 

Ikuisia ohjelmia ovat myös timer- ja kello-ohjelmat, jotka sitovat 
täydellisesti koneesi muuta tekemättömäksi ajanlaskl jaksi, jota monin 
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verrain näppärämpiä ovat muutaman kympin rannekellot ja kellolaskimet . 
Tai osta kalliita aikakortteja - miksi? 

Jäljentele mikrolehdistä musiikkiohjelmia, osta peräti oikein 
kaupallinen ja kuuntele sen surkeaa piipittelyä muutaman kerran ja 
haaveile hintavista syntetisaattorikorteista Ja lisälaitteista, jotka 
maksavat niin paljon, että sillä rahalla saisikin jo aivan vain 
musiikkia varten tarkoitetut kunnan elektroniset vehkeet. Sama juttu 
grafiikkaohjelmissa. Tuijoteltuasi aikasi kuvaputken vänkkyröitä, jako 
terävänä mustavalkoisena tai vähemmän terävänä värillisenä jäät 
vähitellen kylmäksi tuellekin "taiteen" lajille. 

Huomaa vähitellen, että yhtä ja omaa tarkoitusta varten suunnitellut 
laitteet ovat ainoa tyydyttävä ratkaisu muutamaa harvaa poikkeusta %K 
lukuunottamatta. 

Pari vuotta tietokonelehtiä tilailtuasi huomaa niiden väsyttävä 
toisto, aihepiirin rajoittuneisuus, samojen ohjelmien loputtomat 
muunnelmat, "limited only by your oun imaginatian" - iskulauseen 
törkeä valheellisuus, alkuaikojen rajattomuuden tuntu supistuneena 
muutaman pääteeman eli timer-, kello-, puhelinnumero- ym puolivil- 
laisten utility-ohjelmien variaatioihin, Vanhempana harrastajana olet 
ehkä havainnut saman elektroniikkalahdlssä: Tuhannessadas munankeitin- 
ajastin, pärisi jä, piipittäjä, orjasalamalaite, virtalähde, signaali- 
generaattori. Lukijoistaan taistelevien lehtien säälittävyys paljas- 
tuu: kansilehden kirkuvien houkutuslauseiden takana muilta puolivaras- 
tetut sisäsivujen pannukakku jutut. Täytyyhän toimittajienkin lasten 
saada leipää. 

Usko myyttiin reseption jelmien ja muiden vaimoväelle mainostettujen 
ostoslistahölynpöly jen hyödyllisyydestä ja jätä huomaamatta rivien 
välissä näkyvä äärimmäisen rooli ttunut sukupuolia jattelu, se sama, 
joka teekkari- tai Tekniikan Maailma-tyyppisissä jutuissa näkyy 
täydellisimmillään kertoen tunnekyvyttömien tekniikkaan takertuneiden 
tekijöidensä rajoittuneesta sieluntilasta. 

Suututa lapsesi ja raivostuta vaimosi hakkaamalla jääräpäisesti 
idioottimaisia leikki- tai "hyötyohjelmiasi pystymättä myöntämään 
itsellesi täydellista avuttomuuttasi ihmissuhteissasi. Turvaudu 
koneeseen, jota voit komennella mielin määrin, joka kuuntelee vain 
sinun tavoitteitasi soittamatta suutaan ahtaan itsekeskeisestä 
maailmankatsomuksestasi. Menetä muut harrastuksesi, unohda taide, 
elämän elävyys, maailman hienoimman tietokoneen: ihmisen, tuhatulot- 
teinen ihme puuhailussasi bittiesi parissa tullen taitavaksi 
tietämään koneesi jokainen muistipaikka, rutiinin alirutiini, kello ja 
vippa ja portti ja saa tyydytystä harjaantuessasi löytämään muiden 
tekemistä ohjelmista virheitä. Älä kysy koskaan niiden yhteyttä 
todelliseen elämään, vaan jatka Adventuresi pelaamista. 


o o o 


Tuntuuko törkeältä liioittelulta? Kerro mielipiteesi: Mikrojen 
lapsuuden naivin ihasteleva aika saakin jo väistyä. Merkkejä siitä on 
näkyvissä amerikkalaisessa mikrakeskustelussa. Entä meillä? Eivätkö 
mikromainosten huuroehuurut ole vielä haihtuneet? 
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PIRAATTIKYSYMY5 
eli 

ohjelmien laiton kopiointi 

0hjelmi3tosuo jaus- ja kopiointikeskustelu käynyt viimeisen parin vuoden 
aikana huomattavan kuumana. Yhdestä asiasta ovat kaikki yht! mlaiti: teki- 
jänoikeussuojattujen levyjen kopioiminen muuhun tarkoitukseen kuin back- 
upiksi alkuperäiselle ostajalle, on tuamittavae. Toisaalta näyttää käyttä- 
jien vastustus kasvavan kopiointisuo jattu ja ohjelmia vastaan, koska ne jäy- 
kistävät ohjelmankäytän vain ohjelmantekijän oarnaaksi katsomaan muottiin, 
ja ennen kaikkea koska tärkeän levyn rikkoutuessa joutuu käyttäjä ehkä ta- 
loudellisesti sangen kalliiksikin tulevaan pinteeseen. Pieni ei myöskään 
ole se haitta, että nykyisiä erittäin nopeita ÖQS-muunnoksia ja dl iki «n 
RAM-simulaatiokortteja ei voi käyttää. Niinpä cn alkanut esiintyä mielipi- 
teitä levynsä lukitsevien valmistajien boikotoinnista jopa jälleenmyyjien 
taholta, jotka joutuvat selittelemään asiakkailleen, miksi ei todellakaan 
voida tehdä mitään sille, että sinänsä mitättömältä vaikuttava pikkuseikka 
kaataakin koko ohjelman, joka ei yllättäen toimikaan ostajan printterin 
kanssa tai ei sovi yhteen muiden hyvien ohjelmien kanssa, esim. koska se 
sattuu käyttämään toisen ohjelman kanssa 3amaa slottia/muistialuetta/game 
1/0 connectorin pinniä jne. jne. jotka harmit olisvat ehkä jopa vain yhden 
byten muutoksella korjattavissa. 

Osaratkaisuna toimittavat yhä useammat valmistajat Wsi levyä kerralla tai 
$10-15 hinnalla back-upin myöhemmin, joten toisen rikkoutuessa pärjää toi- 
sella kylmän ringin kera toivottavasti niin kauan, kunnes ehtii saada myy- 
jältä uuden backupin. Mutta entä jos myyjä onkin mennyt sillä välin kon- 
kurssiin? - Yksi menetelmä on suojata vain osa levyä. Näistä levyistä ei 
edelleenkään saa backupeja, mutta kriittiset ohjelmakohdat säilyvät modifi- 
oi tuvina. -Toinen ratkaisu on levy, joka kopioituu vain tietyn määrän ker- 
toja, esim. 3-5 kertaa, jonka pitäisi yleensä riittää sangen monien vuosien 
kovaankin käyttöön. Nämä kopiot ovat tällöin ns. muulikopioita, eli niistä 
ei enää saa uusia kopioita. - Massaosta jille (koulut yms.) taas on syytä 
tarjota useampi kappale samaa levyä alennettuun nintaan. - Myös kavoratkai- 
suja on käytetty, esim. game 1/0 connectoriin työnnettävää "avainta", jota 
ilman eivät kopiot toimi. - Hyvä ratkaisu on myös pitää ainakin I/0-rutii- 
nit, mieluummin valtaosa ohjelmasta avoimena, jota käyttäjä voi vapaasti 
muutella omiin tarpeisiinsa, ja tehdä vain pieni osa siitä kopioimattomakai 
jota ilman tuota vapaata osaa ei voi käyttää, ftöin voi käyttäjä esim. laa- 
tia oman interface-oh jelmansa mainiolle "IEEE-3 se ri a 1 /paralle l/semi f o re 
Shlobotnik Zeta" printterilleen. 

Sangen kiinnostavaa on, että na. bittikopioi jat, jotka pystyvät kopioimaan 
monia ' suo jattu jakin levyjä, eivät ole innokkaiden käyttäjien kehittämiä, 
vaan parhaimmat löytyvät nimenomaan arvostettujen sof tistalo jen tuotanto- 
hinnoilta! Kauppa on kovaa ja ratsuväki raakaa, MuttaJ - Mikäli asiak- 
kaat käyttävät niitä vain siihen tarkoitukseen, mihin niitä mainostetaan, 
eli henkilökohtaisten back-upien tekemiseen, ai siitä ole edelläolevan 
mukaan muuta kuin hyvää sanottavana. Parhaiten suojatut levyt ovat nykyään 
kuitenkin käytännöllisesti katsoen murtamattomia. - NLtta mutta... nyt 
näyttävät leviävän kopiointikortit (ainakin kolmea lajia jo myynnissä), 
jotka kerralla nappaisevat koko koneen muistin talteen ja siirtävät sen 
levylle. Toisaalta tämäkään ei päde, jos ko. levy on interaktiivinen itsen- 
sä tai muistinlaajennuskortin kanssa oh jelmansu^rituksen aikana... - Karu- 
selli pyörii... 

Uusi askel terveempään suuntaan on hiljan otettu. Muiasn mainostaessa es- 
teettömästl omia erinomaisia bittikopioi jiaan jopa silloin tällöin laitta- 
masta käytöstä varoittaen, ilmoittaa Onega Micro^are Inc., LQC*SMITHin te- 
kijä, että ne eivät enää ilmoita sellaisten onjslmien parametrejä, joiden 


Back-up-politiikka e--- roidettu järjellisellä tavalla. Nykyäänhän on käytän- 
nössä toivonta yrittää kopioida uusia ohjelmi3 ilman noiden suojattujen 
ohjelmien parametri listauksia - joita nuo muut oi ttikopioi jatalot toimit- 
tavat - eikä se aina silloinkaan ale enää mahdollista. Oega ilmoittaa myös 
ohjelmantekijöille, että jos heillä on back-up-politiikkana Omegaa tyydyt- 
tävä tapa, kertokoot siitä Omegalle, jolloin he lakkaavat ilmoittamasta 
parametreja. 

Mikä tämä järjellinen D3Ck-up-poli tiikka sitten Onegan mielestä on? Tällä 
hetkellä se tarkoittaa, että kaupallisiin ja hyötyohjelmiin (mutta ei pe- 
leihin) on liitettävä mukaan varalevy ilman eri maksua. Uuden levyn tilaa- 
minen sortuneen levyn tilalle, vaikka vain pelinkin, ei saa maksaa viittä 
dollaria enempää - postimaksuineen! - tietysti vain Yhdysvalloissa. Mikä- 
li ohjelma täyttää nämä kriteerit, an turha enää mennä kyselemään Qneg?lta 
kopiointiparametreja. - Sillä lalllai 

Kiinnostava ilmiö on -nyös viimeaikainen muutamien valmistajien suuntaus 
jättää tarkoituksellisesti ohjelmansa suojaamatta - näihin kuuluu myös 
Apple Computer Inc. - vaikka toisaalta ei käytännössä esim. Appleuriter 
II :n kohdalla siltä näytä, kun taas toinen hyvää mainetta saavuttanut PIE 
URITER, jonka Hayden 3ook Company nyt omistaa, on edelleenkin suojaamaton 
-joka seikka ali myötävaikuttamassa sen nousuun PEELINGS II :n elokuun 1982 
kymmenen tekstinkäsittelyohjelman parhaakai. - Kaikki muut olivat suojat- 
tuja. 

Romahtaako myynti moisesta luottamuksesta? Leviävätkö suojattomat ohjelmat 
liikaa laittomia teitä? Perusteluja löytyy puolelta jos toiseltakin. Toi- 
saalta ne varmasti leviävät, mutta leviävätkö ne silloin pääasiassa vain 
sellaisten joukossa, jotka eivät ko. ohjelmia kuitenkaan ostaisi? Kuinka 
paljon varaa an "julki sasi akk ai 11a " menettää kasvojaan laittomasti hanki- 
uilla ohjelmilla? Kuinka rikollista porukkaa harrastelijat ovat? 

Ensimmäinen julkinen näyttö seurauksista on jo saatukin. Penguin Softuare, 
joka tiettävästi ensimmäisenä julkisesti yli vuosi sitten kuulutti siirty- 
vänsä kokonaan suojaamattomien ohjelmien politiikkaan, ilmoitti marraskuus- 
sa 1982, että heidän myyntinsä onnou ssut, enemmän kuin he uskalsi- 
vat olettaa, ja että he jatkuvasti saavat kiitoksia tästä politiikasta sekä 
myös tunnustuksia, että tuttavien kanssa on todella vaihdettu muiden yhti- 
öiden ohjelmia, mutta ei enää heidän, syynä tietenkin juuri tämä myyntipo- 
litiikkai Toisaalta ei tämä yksi -näyttä riitä osoittamaan, etteikö toi- 
selle firmalle kävisi juuri päinvastoin. 


Mikä on Appleklubin kanta? 

Klubin tilaisuuksissa eivät jäsenet vaihtele levyjään, eikä klubi tule an- 
tamaan minkäänlaista Di ttikopiointi-informaatiota jäsenilleen. Klubi ei 
kopioi muuta kuin ns. Public Oomain-oh jelmia. Me ovat käyttäjien ja käyt- 
täjäklubien kehittelemiä ohjelmia, joille ei ole haettu tekijänoikeussuo- 
jaa, ja jotka on luovutettu vapaaseen käyttöön. Näitä ohjelmia on Applek lu- 
hilla nyt parisenkymmentä levyllistä ja lisää tulee. Nämä ohjelmat ovat 
tärkeitä klubilaisten taitojen kasvattamisen kannalta, ja onkin toivotta- 
vaa, että niitä mahdollisimman paljon paranneltaisiin ja lähetettäisiin 
takaisin klubille, jolloin osa niistä voi käyttäjien yhteisvoimin kehittyä 
varsin merkittäväksikin avuksi ja hyödyksi monella eri sovellutusalueella. 

o 

Lopuksi kehotamme kluöilaisia, Applen myyjiä sekä muita halukkaita kirjoit- 
tamaan klubille kaikesta edelläesitettyyn liittyvästä. Pyrimme tilan salli- 
missa rajoissa julkaisemaan meille lähetetyt kommentit. 
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Markku Siivola: 

EPSON EHOMMAKSI 


Tämän lehden jälki on OLYMPIAn kiekkokir joi ttimes ta lähtöisin, enkä 
itse omista EPSQNia. mutta EPSQNilaisia saattaa kiinnostaa pari tässä 
juuri ennen lehden painoon menoa silmääni sattunutta tuotetta: 

MX PLUS $**9.50, jonka painikkeella saa valittua candensed, douöie, tai 
emphasized printin, italics, lisäksi reset, perf-skip (6 tyhjää riviä 
sivujen välillä), left margin indsntation (10 kolumnin), Slines/inch. 
Näitä ominaiuuksia voi nyt käyttöä esim. myös LUKITUISSA ohjelmissa, 
koska ei tarvitse ohjata niitä softwaren puolelta. Kirjoittaja ai ole 
varma, sopiiko se muihin kuin MX-80-malliin. Katso tarkemmin Call 
-A.P.P.L.E. tammikuu 1983 tai tiedustele Tero Sandilta tai minulta tai 
muilta Call -A.P.P.L.E. n tilaajilta - tai suoraan valmistajalta: 
Dresselhaus Computer Products, 22713 ventura 81vd. Suite F., Uoodland 
Hills, CA 9136*», USA. 


Toinen tuote on $179 hintainen peruskortti Super MX Intarface Card, 
$30 lisää kustakin 2-fant EPROMista, ja totta vieköön, sen tuottama 
teksti näyttää tämän vuoden ensimmäisessä PEELINGS II :n numerossa 
olevan paino jälkinäy tteen perusteella melkein kiekkokir joitin- 
jäljeltä! Läheltä kyllä näkee eron, mutta jos ei etukäteen tiedä 
sitä, monet varmaan luulisivat kokokirjain jäi jeksi . Mäin eräs EPSONin 
ikävistä puolista tuntuu tällä kortilla poistuvan. Sopii tyyppeihin 
MX-80, MX-80 F/T tai MX-100. Tiedustele artikkelin sisältöä tarkemmin 
Tero Sandilta tai minulta. Appleklubi lie tulee PEELINGS II, joten 
myös lainata sopii. Kortin valmistaja: Spies Laöoratories , 
P.O. Box 336, Laundale, CA 90260, USA. 

Yksi ikuisuusongelma on kuitenkin taas kerran edessä: entä skandinaa- 
viset pikkurutaleet aäö? En tiedä onko kellään jälleenmyyjällä näitä 
kortteja edes amerikkalaisina Suomessa. Epäilenpä. Kertokaapa jos joku 
teistä tilaa ja tekee siihen ko. merkit, niin pannaan tieto kiertä- 
mään. Ja voihan valmistajaltakin löytyä, näyttävät jotkut amerikkalai- 
set Firmat kaupittelevan eurooppalaisella, tavallisimmin saksalaisilla 
merkeillä jo heti paikan päällä varustettuja korttejaan. Skandinaavi- 
sia merkkejä en ole sentään nähnyt mainostettavan Amerikoissa asti, 
mutta sehän on enemmän tuon läntisen valloitta jak ansan ongelma, 
kansan, joka piti meitä puolen vuosituhannen verran alaisenaan! 

— — i T— r-i — T-TTW»Tt»fM-wr-f p-miii»»wnimi«iw ■ ■ 1 11 ■ ■ m ■ ■ ■ ■ ■ iii n ■ ■ • n i i ■ m n il 

{Oheinen listaus on hiukka vaikea- 
lukuinen, vaan eiköhän se siitä) 


5 REM 

SO UHAT OIO YOU EXPECT 
MICHAEL ZIQ8ER 
CALL-A.P.P.L.E. DCC 82 


10 POKE 5<*,U7: POKE 55,251: PRINT : CALL 65171: POKE 56,88: POKE 57,2 
52: GET A$: CALL 65161: POKE 37,11: CALL 6^6: POKE 36,8 

20 REAO A: IF A > 0 THEN POKE PEEK (UQ) ♦ PEEK (U1)*256 ♦ PEEK ( 
36), A: CALL 6U500: GOTO 20 

30 CALL 976: DATA 211,207, 160,215,200, 193,212. 160, 196,201, 196. 160,217 
,207,213, 160, 197,216,208, 197, 195,212, 191,0 
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Markku Siivola: 

AMPERSAND JA MUL T I AMPERSAND 


1. AMPERSAND 


Syvempien filosofioiden seuratessa vasta artikkelin tuannemmassa 
osassa todettakoon tässä ampersand eli & hyödylliseksi veikaksi. Sen 
käyttö yleistyi vasta vuoden 1980 alkupuolen jälkeen John Crossleyn 
selostettua Applesof t-tulkin ($D000-F7FF) ihmeellisyyksiä nyt 
Applekluöillekin niin tutussa lehdessä Apple Qrchardissa eli 
International Appia Coren eli IAC:n äänenkannattajassa. Kuten 
tietänette, kuuluu Appleklubikin nyt siihen. 

Applesof tin puolelta pääsee konehuoneeseen CALL-, &- ja USR-komennoil- 
la. CALL on tutuin ja USRista et vielä tämänkään jutun jälkeen ymmärrä 
yhtään mitään - vaikka juuri sillä onkin tehty todella ultimaatti 
RND-funktio (Call A.P.P.L.E. Jan. 1983). 

Ainoa mitä & YKSINÄÄN tekee, on hyppyyttää ohjelma välittömästi 
osoitteeseen 1013 eli $3F5, jossa odottelee - jos ei käyttäjä ole sitä 
tuhonnut - hyppy jonnekin muualle, jossa varsinainen toiminta vasta 
tapahtuu. Se on siis &-vektori, eli tienviitta määränpäähän. & ei siis 
tarvitse osoitteita tuekseen, vaan se hyppää oitis $3F5:een, josta se 
vasta löytää sinne etukäteen asetetun varsinaisen hyppyosoitteen. 
Vaikka ohjelmamme joutuukin kiertelemään mutkan kautta, niin ei se 
mitään, koska konekielellähän tunnetusti menee lujaa. 

& on nopea, nopeampi kuin CALL, joka tarvitsee osoitteen, josta 
luikahtaa konehuoneeseen, ja siihenhän kuluu aikaa - joogi kyllä 
kysyisi, mihin senkin säästyneen ajan oikein käytämme. 

Seuraa ohjelma: 

10 POKE 1013,76: POKE 101^,102: POKE 1015,213 
20 PRINT CHR$(7) 
30 & 

Rivillä 10 tungimme muistipaikkaan 1013 JMP- eli hyppykäskyn ja 
101<»:ään ja 1015:een hypyn määränpään. 102 on $66. 213 on $05, ja 
tämähän an osoite $D566 eli Applesof t-tulkin RUN-käsky. Mitäpä siis 
muutakaan tapahtuu kuin rivillä 20 piippaa kello ja riviltä 30 
hypätään &:n avulla $3F5:een, josta matka käy käskyyn RUN eli ohjelma 
alkaa alusta. 

Seuraa toinen ohjelma: 

10 POKE 1013,76: POKE 101^,0: POKE '1015, 3 
20 POKE 768,76: POKE 769,221: POKE 770,251 
30 & : GOTO 30 

Tässä rivi 10 laittaakin &:n (eli &-vektorin) osoittamaan muisti- 
paikkaa $300, johon rivi 20 on tunkenut pienen konekielisen ohjelman 
eli hypyn tulkin BELL1-rutiiniin , joka soittaa kelloa. Sitten rivi 30 
laittaa ohjelman astelemaan näitä jälkiä. 

Olisi hyödyllistä, suorastaan pitäisi, käydä CALL -151 :n kautta 
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katsomassa $3F5:ssä, että siellä todella on osoite vaihtunut, foo 
miksei PE EK ( 1014 ) + PEEK (1015) #256 käy sinänsä myös, mutta vähän 
kömpelönä sitä käyttävät vain konekielikauhuiset , jotka saavat 
pelostaan maksaa jatkuvana haparointina kummallisen epätasaisten 
kymmenjärjestelmän lukujen kanssa, kun heksejä pelkäämättömät saavat 
useimmiten pelata tasaluvuilla. - Vai? - Ja pienenä vihjeenä 
mainittakoon taskulaskimiin saapuneet hex-dec-muuntomahdollisuudet , 

joten uusiessasi taskulaskintasi Huomaa myös tämän lehden 

loppusivuilla oleva Applesoftia tuhoamaton HEX/DEC - DEC/HEX 
CONVERTER. 


2. MULTI AMPERSAND 

Nyt kun ymmärrät ampersandin "yksinkertaisen" käytän, voimmekin 
siirtyä sen laajempaan tarkasteluun. Seuraavassa esitetään, kuinka 
yhdellä &:lla voidaan toteuttaa 26 eri konekielirutiinia. Ampersandin 
kanssa voidaan konehuoneeseen ujuttaa vaikka kuinka paljon roinaa, 
lue: tietoja Applesof t-oh jelman puolelta, ja siitä on julkaistu sangen 
monenlaisia selostuksia eri lehdissä. 

Mitä tällä kaikella on hyötyä? Tärkeimmät asiat ensin: Hoidettuasi 
ensin ihmissuhteitasi, esim. sanottuasi ystävällisen sanan vaimollesi/ 
miehellesi/ ystävällesi voitkin sitten palata tämän artikkelin ääreen. 
Seuraavaksi tärkein asia on se, että saat vähitellen alemmuuskomplek- 
sin, koska pelkkä Applesoft ilman koneosia alkaa olla nykyisten hyvien 
ja halpojen kanekieliassemblereiden aikakautena ns. lällärikamaa. 
Konekieli on päivän sana paitsi PASCALilaisten mielestä (?), ja muut 
vähemmistöryhmät voimmekin jättää huomiotta kuten maailman sivu on 
vähemmistöille tehty. Toisekseen an ampersand mukava ja hyödyllinen 
lenkki konekieleen, ja tätä lenkkiä käyttävät sangen monet kaupalli- 
setkin ohjelmistot. TASC compiler mokoma vaan ei sitä ymmärrä. 

o 

Seuraavassa esitän Nibble Vol3/No.5:ssä Paul Iruinin AMP-L-SOFT - 
ohjelman yhden osaperiaatteen huomattavasti yksinkertaistettuna ja 
tungettuna tuolle kätevälle sivu kolmoselle eli $300-3CF-alueelle (et 
kai vain ole kaskaan tuhonnut OQS-vektoreita 3D0-3FF -alueelta?). Täten 
käy periaate parhaimmin ilmi. Jatkolukemiseksi ja siinä esitettyjen 
rutiinien käyttöönottamiseksi suosittelen ko. artikkelia. Call 
-A.P.P.L.E.n julkaisemassa In Deptji-sar jan numero 1:ssä ALL ABOUT 
APPLESOFT esitetään ampersandin u jutustekniikkaa sivuilla 123-125. 
Ainakin tietyt Sensible Softwaren ohjelmat käyttävät eleganttia 
ampersandien pinoamista, jolloin voi kutsua &-ohjelnia useampia 
kirjoittamalla vain useampia &-merkkejä peräkkäin. 

Katso listaus lehden loppusivuilta. Taas kerran: assembleria 
omaamattomat (tämä on tehty BIG MACilla) menkööt konehuoneeseen CALL 
-151:119, sitten naputellaan listauksen vasen lait3 koneeseen: 300:20 
00 FB 20 DO jne, jonka jälkeen 8SA\/E MULTIAMP, A$3QQ, L$43, niin sitä 
voi tutkia myöhemminkin. Sitten voi kokeilla vaikka käsin CALL 778 eli 
initialisointi, jonka jälkeen voi koettaa &A, &B tai &C, jolloin 
pitäisi piipata kerrasta kolmeen. Sama ohjelmasta eli CALL 778 ja 
sitten &A jne. 

Assemblerlistauk3en selitysten lisäksi mainittakoon: Rivit 28-34 
asettavat $3F5-3F7:ään oikean hyppyosoitteen. Rivi 39 hyppääkin sitten 
käyttäjänsä hallinnan ulottumattomiin Applesof t-tulk in uumeniin 
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CHARCHEK- eli ISLETC-rutiiniin , jossa aikansa koltstuaan saapuu 
takaisin jättäen Carry flagiin bitin päälle eli bit set, jos i:n 
perään oli kirjoitettu kirjain väliltä A-Z. Jos näin ei ole, vääntää 
se ko. bitiltä niskat nurin eli eliminoi eli resettoi sen. Seuraavan 
-kyn on silloin tietysti edullista vaatia ohjelman jatkumista, 
käli ko. bitti on hengissä. Ko. käsky an 8CS eli Branch Carry Set 
i haaraudu jos bitti elää. Jos bitti an pois päiviltä, jatkaa 
jelma JSR SNERRiin eli hyppää taas Applesaf t-tulkin uumeniin 
ikkaan, joka ilmoittaa SYNTAX ERRORin tapahtuneen ja pysäyttää 
jelman . 

Jos Carry oli päällä eli &:n jälkeinen merkki oli välillä A-Z, 
haarautuu ohjelma riville <+2, jossa se hyppää Applesaf t-tulkin 
CHRGET-rutiiniin, joka on sen verran tärkeä ja monitoiminen, että 
siihen kannattaa tutustua esim. maaliskuun 1982 Call -A.P.P.L.E.n 
numerosta Carnelis Bongersin esittelemänä. Se jättää Carry f lagin 
päälle, jos sen tutkima merkki ei ollut numero, ja Zero flagin päälle, 
jos ko. merkki oli lausahduksen loppumerkki eli kaksoispiste tai 
nolla. Tässä esimerkissä sitä kylläkin käytetään vain laiskan miehen 
keinona $88-B9:ssä majailevan TXTPTRm eli textpainterin kasvattami- 
seksi yhdellä eli siirtämiseksi osoittamaan seuraavaa byteä, jottei 
kone kurki jatkuvasti samaa merkkiä ja ilmoittele kirjoittajan taas 
möhlineen eli syntax errorin tapahtuneen. 

Siinä touhussa sotkeentuu akku, joten hyvä, että säästettiin merkki 
rivillä 38, joten nyt saadaan se takaisin rivillä <*6. Siitä 
vähennetään A-kirjaimen hex-arvo <*1. Oletetaan että Applesoftin 
puolelta kirjoitimme &C, joka konepuolella on $**3. Tässä kohdassa C 
miinus A on $43-$M eli $2. Rivillä U9 se kerrotaan kahdella = $*+, 
siirretään X-rekisteriin, jossa se toimii alirutiinin muistipaikan 
osoittajana: Rivillä 51 ladataan akku osoitteesta, joka saadaan, kun 
TABLEn osoite eli $330 ja X-rekisterin sisältä eli $<♦ ynnätään yhteen 
eli osoitteesta $3*»1, jossa an nolla. Rivillä 52 se sijoitetaan 
SUBRUT+1:een eli 33B:hen, jossa majaillut $FF haihtuu sieltä. Rivi 53 
sijoittaa muistipaikan $3^2 sisällön $03 muistipaikkaan 33C eli nyt 
onkin hyppykäsky valmis eli JMP 00 03, ja niin hypätään siis 
osoitteeseen $300 ja siellähän onkin kolme piippausrutiinia 
odottelemassa, jonka jälkeen palataan RTSin avustuksella sinne mistä 
lähd immekin. 

Lehden lopusta löytyy muutama esimerkkilistaus In Depthistä: & TOIME, 
& GOTO, & INPUT ja & UAIT. - Sekä HEX/DEC - OEC/HEX COIWERTER' 
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Markku Siivola: HUKATTUA ETSIMÄSSÄ 


Eric Lambrechtin Call-A.P.P.L.E.ssa huhtikuussa 1982 esittämä RESTORE 
□n yksi niitä ohjelmia, joita saattoi ostaa esim. Akateemisesta Kirja- 
kaupasta melkein parinsadan markan hintaan noin vuosi 3itten. Tiedä 
häntä jos vieläkin myyvät tätä ohjelmaa, en ole käynyt tarkastamassa. 
Tällainen hintakehityshän eli kalliista ilmaiseksi ei ale enää niin- 
kään harvinaista käyttäjäklubien omien ohjelmien seuratessa kaupallis- 
ten ohjelmien kannoilla ja joskus jopa rinnalla. 

Tämä ohjelma palauttaa Applesof t-oh jelman takaisin, jos se on vahin- 
gossa NEW- tai FP-käskyllä tuhottu. Se on juuri sopiva konekielen 
opiskeluunkin, koska se ei syrjähtele koluamaan ROMien hämäriä JSR-si- 
vupolkuja, vaan pysyy kiltisti RAMin käy ttä jämuistin päivänvalossa. 
Kun lisäksi tutkit tämän saman lehden artikkelia APPLESOFTIIM SIELUN- 
ELÄMÄ osa IX, auttaa se omalta osaltaan ymmärtämään tätä juttua! 
Listauksen löydät lehden loppusivuilta. 

Itse ohjelmahan ei em. käskyillä tuhoudu, vaan kone lyö ohjelman al- 
kuun kohtiin "next line address" kaksi nollabyteä. Samalla ohjelman 
loppuosoitin nollasivulla muistipaikoissa $AF-B0 tipahtaa ohjelman 
alkuun plus 2 tai 3 byteä riippuen siitä, onko ohjelma pyyhitty FP: llä 
vai l\EW:illä. 

Ensin alkaa RESTORE hakea hukatun Applesof t-oh jelman ensimmäisen rivin 
rivin loppua osoittavaa nollabyteä aloittaen neljä byteä ohjelman 
alusta lukien (rivit 15-23). Sen löydettyään se tietää, että siitä 
eteenpäin alkaa seuraava rivi, joten tuon seuraavan rivin alun kohdan 
se siirtää ensimmäisen rivin "next line addressiin" (rivit 2<*-33). 
Sitten se hakee ohjelman lopun hyppimällä "next line addresseja" pit- 
kin eteenpäin (rivit 35-MO, ja sen löydettyään sijoittaa tuon osoit- 
teen plus kolme $AF-BO:aan eli ohjelman loppua osoittavaan pointte- 
riin. Sitten se ilmoittaa ohjelman lopun vielä array table- (ARYTAB), 
variable table- (V/ARTAB) ja Storage end (STREIMD) pointtereihin ja hyp- 
pää lopuksi BASICin puolelle. 

Ohjelma on täysin relokoituva eli voit ladata sen mihin sopivaan koh- 
taan tahansa ja kutsua sitä CALLilla sieltä. $300 eli 768 on yleensä 
sopivin paikka. 

Huomaa mukava konsti välttää JMP-käskyä, joka usein haittaa ohjelman 
relokoituvuutta, mikäli se osoittaa ohjelman itsensä alueelle, koska 
sehän on absoluuttinen pomppu; varsinainen nurkkapatriootti , joka ei 
suostu muuttamaan määränpäätään sijoitettaessa ohjelma muistin johon- 
kin muuhun osaan. (Samanlainen pässi an JSR). Tuo konsti on CLC eli 
Clear Carry ja BCC eli Branch Carry Clear (rivit *»3-M») eli tämähän 
pakottaa ko. haarautuman tapahtumaan aina, joten ehdottomuudessaan se 
sii3 vastaa JMPia, mutta ei ole absoluuttinen. 

Tavallaan voisi kyllä syyttää suhteellisia osoitteli joi ta (eli 8EQ ja 
kumppanit) vielä tiukemmasta juuriinsa takertumisesta, sillä nehän 
laskeskelevat matkansa suhteessaan oman itsensä sen hetkiseen paikkaan 
muutellen päämääräänsä selkärangattomasti oman asemansa mukaisesti, 
kun taas JMP ja JSR pitävät jylhän tiukasti kiinni asettamistaan pää- 
määristä niistä luopumatta, vaikka niitä itseään heiteltäisiin minne 
tahansa. Niillä on sisua ja selkärankaa] 

Oletko jo hankkinut jonkun debuggerin, jolla konekielioh jelmien ymmär- 
täminen helpottuu huomattavasti? Sellaisella voit askel askeleelta 
seurata, mitä Applesi eri muistipaikoissa ja prosessorissa puuhaillaan. 
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.rkku Siivola: 


APPLESOFTIN SIELUNELÄMÄ 
osa I 


Jos aikoo saada sormen suusta kun hätä tulee, on ennemmin tai myöhem- 
min luovuttava basicilaisesta englantilaishienostelusta, avattava ko- 
nehuoneen luukku ja tahrattava kätensä byteihin. Aivan kummasti tulee 
myöhemmin tilanteita eteen, joissa hankittu tieto on tarpeen. 

Ensiksikin on muistettava muisti. On erittäin olennaista hahmottaa ja 
pitää mielessään jatkuvasti, missä päin muistia milloinkin liikutaan. 
Tunnetko Apple II Reference Manualin sivujen 68-69 kartat kuin omat 
taskusi? Niitä tullaan ^tarvitsemaan niin Basicin kuin konekielen ja 
DOSsinkin opiskelussa. Ifcfevä vain, että yhteisen sopimuksen puuttuessa 
niissä muisti on kuvattu ylhäältä alas kasvavasti. Itse tulen esittä- 
mään asian toisin päin, kuten esim. lehtemme seuraavan numeron tär- 
keissä muistikartoissa. 

Aloitamme alueelta $800 ylöspäin. Sivulla 69 lukee ko. kohdassa: Text 
and Lo-Res Graphics - Secondary Page Storage. Tällä alueella majaile- 
vat omat Applesoft- (mutta ei Integer-) ohjelmasi. Mitä pidempiä ne 
ovat, ulottuvat ne sitä korkeammille sivuille, eli ka. kuviossa ulot- 
tuvat yhä alemmas. 

Mitä ovat nuo sivut? Yksi sivu on 256 byteä eli hekseissä ilmaistuna 
$100 byteä. Applesoftin alkusivu on siis 8 eli $8 eli tämän sivun 
alkureunan muistipaikan osoite on $100 kertaa $8 = $800, desimaaleissa 
256 kertaa 8 = 20^8. Jos et osaa hex/desimaalikonversioita kumpaankin 
suuntaan, on paras opetella ne nyt, ettet olisi jatkuvasti sekaisin 
reistaillessamme edestakaisin Applesoftin ja konehuoneen väliä. Etu- 
päässä tulemme pysyttelemään hekseissä asian luonteesta johtuen. 

Apuneuvona voi käyttää tämän lehden lopussa olevaa HEX/DEC - DEC/HEX 
CQIMVERTER-oh jelmaa , joka ei katoa muistista Applesoftimme kanssa reis- 
taillessamme. Assemblymuodossaan sen sielunelämää voidaan tutkia, mut- 
ta se on esitetty myös Applesoft -muodossa, jossa tuo &- eli ampersand- 
hyppyvektorikin asettuu automaattisesti kohdalleen $3F5-3F7:ään, joten 
se on mukavampi tutkimisen alussa hurauttaa sisään. Sitten vain menet- 
telet 120 REM-rivin ohjeen mukaan. 

Toinen apuneuvo - vallankin pidempien ohjelmien ja ylipäänsä Applen 
muistin tutkimiseen (melkein) mistä tahanaa - löytyy myöa loppusivuil- 
ta: APPLE PEELERin hex dump. Naputeltuasi sen koneeseen 8SAVE PAGE 
DUMP, A$7000, LS200. - Sama ohjelma on Public Domain - diskillämme 
numero IAC 12, joten jos viitseliäisyyttä ei omatoimiseen naputteluun 
löydy, voi tilata tuon levyn toimistosta. Kaupallisista ohjelmista 
mainittakoon INSPECTOR & GPLE eli Global Program Line Editor, joiden 
yhteisavustuksella on tämänkaltainen muistin tarkastelu ja muuttelu 
erittäin näppärää. 
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Tarkastelkaamme ensin sangen yksinkertaista Applesaf t-oh jelmaa : 


10 PRINT A 


Kirjoitettuasi ylläolevan ohjelman mene konehuoneeseen CALL -151:111, 
ja tutki muistia em. $80Q:sta alkaen. Miten bytejä konehuoneen puo- 
lella muutellaan, selviää Apple II Reference Manualin sivuilta U-UU. 


HEX DUMP: 800 : 00 08 08 OA 00 BA t»1 00 

11 1 111 

Start of program 1 1 1 111 

Next line address 1 1 111 

Line number 1 111 

PRINT token— « <\ 1 1 

ASCII "A" 1 -i 

End of line delimiter 1 


Yhden rivin minimimäärä on viisi byteä, jotta Applesoft tajuaisi mistä 
on kyse. Jos neljän ensimmäisen byten (kaksi ensimmäistä ovat seuraa- 
van rivin osoite, kaksi jälkimmäistä ovat rivinumero) jälkeen tuleva 
byte on $80 (128) tai suurempi, on se APPLESOFTin token. Me saamme 
katsella selväkielistä englantia, mutta kone ei hukkaa tilaa englan- 
tiin, vaan käyttää itse lyhennelmiä. 

PRINT in token eli (tunto )merkki eli lyhennelmä on BA, ja se on paikas- 
sa $805. Jos byte onkin pienempi kuin $80, an se ASCII-merkki. Katso 
Applesoft Reference Manualin sivulta 121 Appendix F:ää. Siitä voit 
varmistaa, että PRINTin token on todellakin BA. - Tuliko vaikeuksia 
HEX/DEC-konversion kanssa? Edelläe9itetty muunnosohjelma lienee ko- 
neessasi? Laskujen jälkeen saat kuitenkin tulokseksi, että todellakin 
paikassa $805 oleva $8A on desimaalina 186, ja sehän onkin PRINT. Muu- 
tapa se numeroksi 178, joka on heksinä... 82. Kurkista Applesoftin 
puolelta Ja kas: 10 REM A. Muutapa se sitten pienemmäksi kuin $80! 

Kirjoittele erilaisia arvoja muillekin hyteille välillä $803-806 ja 
käy Applesoftin puolella kurkistelemassa. Kirjoita: 10 PRINT A : PRINT 
ja tutki muutosta. Keksi omia esimerkkejä. 

Jos APPLESOFT löytää jonkin rivinumeron paikasta kaksi nollabyteä, 
tarkoittaa se ohjelman loppua. Mitkä ovatkaan siis ohjelmamme bvtet 
$808-809? 

Kirjoita ohjelma: 

10 PRINT A 
20 REM 

ja katkaise se ensimmäisen rivin jälkeen sijoittamalla nämä kaksi nol- 
labyteä takaisin $808-809:ään - josta ne hävisivät, kun jatkoit ohjel- 
maa toisella rivillä. Mihin ne nyt siirtyivät? 

Seuraavalla kerralla tutustumme Applen nollasivulle, eritoten sen 
pointtereihin, jotka näyttelevät ohjelman hallinnassa melkoista osaa. 
Etukäteen voit jo luntata Applesoft Reference Manualin sivuilta 1M3 - 
141. 


-29- 


rkku Siivola: 

SANONPAHAN V/AAN... 


...jotta kun minä passi menen seuraavan kerran vetäisemään Z-80-kortin 
irti sammuttamatta konetta jolloin E0-RQM palaa, niin kaivanpa esiin 
viime syyskuun QMENAHYVEEN ja katson Esa Elfin puhelimen numeron 
ieltä. 

Tai onhan se kyllä 'ässäkin eli 

991-16160 koti 
ja 03oite 
Korvanranta 50 A 7 
96300 ROVANIEMI 30 

Eikös hän puhunut rakennelleensa pikku EPROM 2716 ohjelmoijan 
(edellinen OMENAHYVE sivu 20) ja antavansa siitä muillekin tietoja? 
2716 :han on mitä halvin ja hyödykkäin pikku veikko, jonka 8x2 kiloa 
tulevat vielä vuosikaudet riittämään monen ongelman itse ohjelmoituun 
ratkaisuun, kuten skandinaavisten kirjaimien luontiin. 

IMo näin hullustihan se tässä männä viikolla rovaniemeläisille kävi 
niin eikös mitä sillä ohjelmoijalla vaan suhautettiin 2716 :sta ja 
yhdestä invertteristä uusi E0. 

Mitä tällä tiedolla tässä tekee? Sanonpahan vaan, jotta tätä 
kirjoitettaessa "se oikea" piiri on vieläkin missä lie matkalla ja 
joutaapa allakin. Kun klubilaiset turvautuvat toistensa tietoihin ja 
painavat sielunsa syvyyksiin Appleklubin kuuman linjan numeroita 
(joita on klubilai3ten keskuudessa esiintyvään tietämykseen nähden 
liian vähän), saattaa pahakin pula muuttua menneisyydeksi. 

Ei se mitään, ettei kyseinen 2716 sopinut suoraan, vaan siltä oli 
väännettävä yksi tassu taivasta kohti ja liitettävä siihen yksi 
hyppylanka sekä liimattava epoksilla kyseinen invertteripiiri 
nurinpäin pikkulutikaksi sen selkään. Piankos kokenut klubilainen 
sellaisen ratkaisee? 

Onhan niitä ongelmia, joita tiedä häntä ratkaiseeko niitä Jumalakaan, 
vaan passaa sitä ainakin kysyä. Jos nyt esimerkiksi ei palakaan E0 
vaan E8, niin arvoitus: ei kai sitä enää kannata kysyä? 

Vai? 

:s==sss=ss:is=s3SS=5s==assssaar3==ss=ss==ss===3SS=sMss=as=s:sas=23S 

5 REM 

SO UHAT DID YOU EXPECT? 
STAN CLEVELAND 
CALL-A.P.P.L.E NOV 1982 

10 X = 2049 

20 FOR I = 80 TO 10 STEP - 10 

30 POKE X ♦ 2, I - INT (I / 256) * 256 

kO POKE X > 3, INT (I / 256) 

50 X = PEEK (X) ♦ PEEK (X ♦ 1) * 256 

60 NEXT I 

70 LIST 
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PUBLIC DOMAIN 
et ai. 

Public Domain-levy jä on klubille ennättänyt tähän mennessä kertyä kak- 
sikymmentä. Katso edellisistä numeroista aikaisemmat luettelot. Enim- 
mäkseen ovat diskit IAC:ltä, jolla viime kesäkuussa oli yli 20000 
ohjelmaa 855: llä levysivulla, kuinka paljon lie nyt. Ohjelmien run- 
saudesta johtuen ei klubi ehdi tutkia kuin osaa niistä. Niinpä ne on 
tilattava vain ao. catalogin perusteella. Niitä saa muutella vapaasti. 
Niiden pitäisi olla virheettömiä, mutta kukaan ei mene siitä takuu- 
seen. Jos koko diski sattuu olemaan viallinen, lähettäkää se maksutta 
uusittavaksi. Parannelkaa, poistakaa mahdollisia löytämiänne virheitä, 
kirjoittakaapa vaikka pieni kommentti tai juttu jostain erikoisen hyö- 
dylliseksi havaitsemastanne ohjelmasta ja lähetelkää takaisin Apple- 
klubille, niin työnne koituu muidenkin hyödyksi. - Prosessori-lehtikin 
on muuten ilmaissut kiinnostuksensa saada kludilaisten kirjoittamia 
Apple juttuja, joten muistakaapa heitäkin. Mikäli he säilyttävät nykyi- 
sen julkaisuystävällisen linjansa, voidaan juttunne siellä ilmestymi- 
sestä huolimatta julkaista myös OMENAHY VEessä . 

Toimitus/postimaksu per levy 10 mk ynnä levyn hinta 35 mk maksetaan 
Appleklubin PS-ti Iille Appleklubi/Per-Erik Eriksson, TA 3066 98-6. 
Lisätietokohtaan on selvästi merkittävä, mitkä PO-diskit haluaa. Odot- 
tele rauhassa sen jälkeen vähintään pari viikkaa. Voit lähettää levyn 
hinnan sijasta myös itse levyn (levyt) toimistoon. 

Missä viipyvät omat tuotoksenne suomalaisia PD-diskejä varten? Pankaa- 
pa vaikka muun postin ohessa parhaat tuotoksenne muillekin nähtäväksi 
ja edelleen hiottavaksi. 

o 

UISICALC- ja THE Spreadsheet-templaati t sekä compailatut ohjelmat: 
Katsotaanpa, jos saataisiin vähitellen koostettua PD-diski(t) myös 
näistä. Templaatit eli ko. ohjelmilla itse tehdyt kaavastorungot vai 
miksi niitä nimittäisi, ovat vapaasti vaihdettavaa tavaraa. Samoin 
vapaata tavaraa ovat eri compilereilla nopeutetut itse tehdyt BASIC- 
ohjelmat. Lähetelkää luomistyönne tuloksia. 


HUOM!: Binääri-, BASIC- ja jopa textfileiden erittäin nopeaan levyl- 
tä siirtoon kykenevä DIV/ERSI-DOS-oh jelmaa on myös saatavissa. Se sai 
sangen hyvät arvosanat PEELINGSin tämän vuoden ensimmäisen numeron 
kritiikissä. Siinä on myös näppäimistö- ja printteribufferi. Sen voi 
myös siirtää ekspansiokortille. Ko. ohjelmalevy rinnastetaan PD-dis- 
kiin eli klubi perii siitä vain postitus- ja toimituskulut ylläolevan 
mukaan. Mikäli olet tyytyväinen ohjelmaan, pyytää ohjelman valmistaja 
sinua lähettämään $25 suoraan hänelle. Ohjeet ja muu info löytyvät le- 
vyltä. Lue tästä levystä myös Puusta Pudonneista. 

o 

HUOMi Ilkka Blom on ystävällisesti luovuttanut shakk i tehtävien rat- 
kaisu- (eikä siis tavanomainen peli-) ohjelmansa vapaaseen levityk- 
seen. Siinä ne eroavat PO-oh jelmista, että niiden muuttaminen tai 
käyttäminen jonkun muun ohjelman osana on kielletty. Sen toimittami- 
sessa noudatetaan kuitenkin PO-periaatteita. Testatkaapa niitä Ja 
kirjoitelkaa näkemyksenne klubille. Niiden pitäisi olla kuulemma hy- 
viä. Näin shakk imaallikkoina emme toimituksen puitteissa pysty kuiten- 
kaan niitä lt9e arvioimaan. 
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IDi CL T SIZ FIlENAME 






10} CL T 

SIZ FILENAME 

17 §X 3 


093 FREE 5ECT0RS - VOL 254 




1*7 
I / 

T 
1 

17 

AUTOMATIC BINGO 

18 

A 

3 BILLBOARD DISPLAY DEMO 

i / 

T 
I 


BATTLE OF NUMBERS 

18 

g 

2 BSOUND MAKER 

1 *7 

T 
1 

a 

BEGINNING 

18 

A 

3 FILE ARRANGER UTILITY 

I / 

T 
1 

7 

BINGO CARD 

18 


14 GRAPHING FUNCTIONS IN HI-R 

1 / 

T 
1 

18 

BINGO 

18 


4 GREETINGS FROM U.V.A.C.C. 

1 *7 

T 
1 

23 


18 


25 HELLO 

1 *7 

T 
1 


COL OR MATH 

18 


22 HI-RES SOLAR SYSTEM SIMULA 

17 

I 

3 

COMPUTER ART 

18 


5 JOYSTICK/PADDLE TESTER 

I / 

T 
1 

25 

CRYPTQGRAM 

18 


3 LIST THIS FILE BEFORE IT'S 

1 *7 
I / 

T 
1 

32 

DATA DISPLAY AIMD SAVE 

18 


8 LOAN AMORTIZATIQN TABLE 

17 

T 
1 

u 

FAST MEM TEST 

18 


3 MUSIC NOTES UIITH OCTAVE NO 

1*7 

n 
H 

10 

HANGMAN 

18 


3 PAUSE (LIQRKING) ROUTINE 

1*7 
I / 

T 

1 

6 

HANGMAN 2 

18 

g 

34 PIC. 1 (HI-RES PG.2) 

1*7 

n 
H 

6 

HELLÖ 

18 


3 PLAY THAT TO NE AGAIN SAM 

17 

I / 

T 

1 

2 

INSTRUCTIONS 

18 


8 SNAKE ARCADE GAME 

1*7 

T 
1 

11 

LAS VEGAS SLOT MACHINE 

18 


34 SNAKE LOGO 

17 

T 
1 

19 

LIFE 

18 


5 SOME UiHERE QVER THE RAINBO 

I / 

T 
1 

7 

MOCN LANDER 

18 

A 

3 SOUND BY liJAGNER 

■1*7 

T 
1 

24 

MUSIC 

18 

g 

2 SOUNDI ( CALL292 1 ) 

1*7 

T 
1 

8 

NEVADA CRAPS 

18 

g 

2 SOUND 10 ( CALL5472 ) 

1*7 

i 

20 

NJ LOTTERY 

18 

g 

2 SOUNDI 1(CALL4307) 

1*7 

T 
i 

7 

PHILA. COLOR ORGAN 

18 

g 

2 S0UND12 ( CALL5334 ) 

17 

T 
1 

11 

PH IL A. PINBALL 

18 

g 

2 SOUNDI 3 (CALL4661) 

1*7 

T 
1 

2 

RAND GM LINES 

18 

g 

2 SOUND 14 ( CALL482 7 ) 

17 

T 

X 

11 

SKLNK 

18 

g 

2 SOUND 1 5 ( CALL3969 ) 

17 

T 
1 

14 

SLOT TS 

18 

g 

2 SOUND 16 ( CALL4993 ) 

17 

I 

u 

SL GUi MEM TEST 

18 

g 

2 S0UND2(CALL3091) 

17 

I 

9 

STARUARS RESCUE 

18 

g 

2 S0UND3CCALL2571) 

17 

I 

16 

STATES AND CAPITALS 

18 

g 

2 50UND4(CALL3293) 

17 

I 

9 

THE HART PIANO 

18 

g 

2 S0UND6(CALL3631) 

17 

I 

34 

TITLE DEMO 

18 

g 

2 S0UND7C CALL5 159) 

17 

I 

8 

TUI NE (TYPE GR FIRST) 

18 

g 

2 S0UND8(CALL2230) 

17 

I 

8 

TUJO CIRCLES 

18 

g 

2 S0UND9(CALL5548) 

17 

I 

8 UIINGS(TYPE GR FIRST) 

18 

A 

6 SPACE MUSIC* INTRO 

18 §§ § 


IAC: PD 18 

18 

A 

3 TRICK FILE NAME UTILITY 

18 § 
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18 

A 

2 TUNNEL VISION 

18 

A 

3 

ABE PIC. 

18 

A 

2 TUJIRLING CURSOR 

18 

A 

3 

ABYE 

18 

A 

3 TWO 3-D SHAPES 

18 

A 

3 

AC AN 3E ' 8RUN' OR YOU 

18 

A 

4 UP & DOUN THE SCALE 

18 

A 

3 

AC AN '3L0AD' THEM AND 

18 

I 

26 bENATCHEE APPLESTAND (GAME 

18 

A 

3 

ADONE UITH D. FUDGE 1 S 

18 

A 

2 255 HI-RES COLORS DEMO 

18 

A 

2 

AFRCM U.V*A.C.C. 

19 § 

§ § 

IAC: PD 19 

18 

A 

3 

AMPERSAND K I LL- CAT AL DG UTI 

19 §X 3 
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18 

A 

2 

AMPERSAND LIST UTILITY 

19 

T 

1 ADDRESS INDEX 

18 

A 

2 

AMPERSAND RUN UTILITY 

19 

A 

6 ADDRESS INDEX. INSTRUCTI0N5 

18 

A 

2 

APPLESINE 

19 

A 

91 ADDRESS INDEX. LC 

18 

A 

3 

ASCII SCREEN DISPLAY 

19 

A 

53 8IRTH/ANNIVERSARY LIST 

18 

A 

3 

ATHE FOLLOUING FILES 

19 

A 

4 CONVERT APPLEURITER 

18 

A 

2 

ATHE PROGRAMS ON 

19 

A 

4 CRAE/APA 

18 

A 

2 

ATHIS DISK ARE 

19 

A 

18 CRAE/APA. INSTRUCTIONS 

18 

A 

2 

ALOATCHEE LIASH. 

19 

T 

1 CRAE/AP 

18 

A 

2 

A 

19 

I 

20 DISK SECTOR MAP 

18 

A 

2 

A DAVID HOFFMAN 

19 

T 

1 DISPLAY ASC PAGE BY PAGE 

18 

A 

2 

A 98801 

19 

A 

4 DISPLAY ASC PAGE BY PAGE. I 

18 

A 

2 

a And 

19 

B 

2 DISPLAY ASC PAGE BY PAGE.O 

18 

A 

3 

A'CALL' THE ADORESS 

19 

A 

7 HELLO 

18 

A 

3 

A »HI-RES SECRETS' PKG 

19 

T 

1 HUFFIM 

18 

A 

2 


19 

A 

16 HUFFIN 


A 

2 A535 HIGHLAND DR 

19 

A 

4 HUFFIN. INSTRUCTIONS 


A 

2 
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ID* CL T SIZ FILENAME 

ID£ CL T SIZ 

FILENAME 

19 

B 

34 JOYSTICK tillRING OIAGRAM 

20 

T 

9 

LOUERCASE ASSEM LIST. TEXT 

19 

T 

18 JOYSTICK. INFO 

20 

A 

6 

MENU MAGIC 

19 

A 

5 JOYSTICK. INSTRUCTIONS 

20 

A 

16 

MOONLANDING 

19 

A 

4 LC-KILLER. INSTRUCTIONS 

20 

A 

\k 

MORSE CODE 

19 

B 
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8 

3 

MORSE CODE. OBJ 

19 

A 

10 LOAN PROGRAM 

20 

A 

14 

PRETTYPRINT 

19 

T 

5 MEMAP (EXEC) 

20 

A 

15 

SHUFFLE 

19 

A 

5 PADOLE TEST 

20 

A 

12 

SPACE CANYON 

19 

A 

18 POKE 33. INSTRUCTIONS 

20 

T 

1 

X-> DISK FULL 

19 

B 

2 POKE 33. OBJ 
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IAC: PD 21: ABBS SYSTEM 
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R 

2 POKE 33. OB JO 
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19 

T 

4 POKE 33 . SOURCE 
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T 

47 

AB8S1 

19 

A 

8 PUF. INSTRUCTIONS 

21 

T 

13 

ABBS 3 

19 

B 
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21 

A 

3 

BUILD USERS.OBJ 

19 

T 

19 PUF. SOURCE 

21 

T 

35 

INSTRUCTIONS 
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A 

8 RAM TEST 48K 

21 

T 

2 

OPINION 

19 

A 

25 SECTOR LIST 

21 

T 

62 

REMEMBER II 

19 

A 

5 TEXT TO APPLEDRITER 

21 

T 

73 

REM II INSTRUCTIONS 

19 

B 

5 TEXT TO APPLEUIRITER.X 

21 

A 

4 

RUN THIS FIRST 

19 

B 

18 TEXT. JOYSTICK. INFO 

21 

A 

5 

RUN THIS SECOND 

19 

A 

28 TRACK 35. INSTRUCTIONS 

21 

T 
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SYSOP INSTRUCTIONS 

19 

a 

2 TRACK 35. OBJ 

21 

T 

2 

TO SYSOP 

19 

R 

3 TRACK 35. 08 JO 

21 

T 

a 

UPL0AD1 

19 

T 

8 TRACK 35. SOURCE 

21 

T 

2 

UPL0AD2 

19 

A 

4 UN-NEU. INSTRUCTIONS 

21 

T 

103 

UAPA88S NOTES 

19 

B 

2 UN-NEU. OBJ 
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T 

8 UN-NEU. SOURCE 
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T 
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A 

11 ADORESS SEARCH. INSTRUCTION 
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2 ADORESS SEARCH. OBJ 





20 
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2 ADORESS SEARCH. OBJO 





20 

T 

5 ADORESS SEARCH. SOURCE 





20 

A 

3 APPRINT F ILE MAKER 





20 

T 

2 APPRINT 





20 

A 

3 BENCHMARK 





20 

A 

10 CANYON RUN - COLOUR 





20 

A 

7 DISKSCAN 





20 

B 

2 DISKSCAN. OB J1 





20 

B 

2 DISKSCAN. OB J2 





20 

A 

14 DISK FREE SPACE 





20 

A 

10 ERROR HANDLER 





20 

A 

11 FASTBOOT CREATE 





20 

8 

3 FAST.LOADER 





20 

B 

2 FAST.RUTS 





20 

A 

9 GETFILE INFO 





20 

T 

15 GETFILE 





20 

a 

4 GETFILE. OBJ 





20 

T 

13 GETSECT 





20 

a 

2 GETSECT. OBJ 





20 

A 

10 HELLO CRAE/APA 





20 

A 

5 HELLO 
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A 

12 HYBRID HUFFIN 
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A 

11 LAPLACE INVERSION 





20 

A 

8 LAPLACE INVERSION. DOCUMENT 




20 

T 

4 LISTING 
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UNOHTUNUT KQNEKIEL IQHJELMA 

Näyttää siltä, että edellisessä - 1982 syyskuu - Qnenahy veessä ollees- 
ta artikkelista "KIELIKORTISTA HYÖTY IRTI» lupaamanne konekielioh jelma 
jäi pois. Seuraavassa se nyt on, BIC MACin assembloimana. Miistatte- 
han: jos assembleria ei ole niin CALL -151 konehuoneeseen ja naputel- 
laan 300 :AE 00 EO AO CO jne, jonka jälkeen BSAVE FINDCARD, A$300, L$31 





1 

ORG 

$300 


0300: 

AE 00 

EO 

2 
3 

LOX 

$E000 

; Check if BASIC changes 

0303: 

AO CO 

CO 

4 

LDA 

$C0C0 

;(C0A0 slot 2, COFO slot 

0306: 

EC 00 

ED 

5 

CPX 

$E000 

0309: 

DO 09 


6 

8ME 

$0314 


030 B : 

AD C1 

CO 

7 

LDA 

$00C1 

;(C0A1 slot 2, CDF1 slot 

030E: 

EC 00 

ED 

a 

CPX 

$E000 

0311: 

00 01 


9 

BNE 

$0314 

;If not, return 

0313: 

60 


10 

RT S 



0314: 

A9 CO 


11 

LDA 

*$CD 

;If so, rnodify DOS 

0316: 

80 88 

A5 

12 

STA 

$A5B8 

0319: 

A9 C1 


13 

LDA 

*$C1 


03 1B: 

80 CO 

A5 

14 

STA 

$A5CD 


031E: 

EC 00 

ED 

15 

CPX 

$E000 

;Firmuare active? 

0321: 

00 01 


16 

BNE 

$0324 

;If not change state 

b.23: 

60 


17 

RT S 


;If so return 

0324: 

AO CO 

CD 

18 

LDA 

$COCD 

;Turn on peripheral 

0327: 

EC 00 

ED 

19 

CPX 

$EDOO 

032 A: 

00 01 


20 

BNE 

$320 

;Is original BASIC back? 

032C: 

60 


21 

RTS 


;Yes, return 

0320: 

AO C1 

CO 

22 

LDA 

$C0C1 

;No, turn of f card 

0330: 

60 


23 

RTS 



5 REM 

SO UHAT DID YOU EXPECT? 
EUGENE F LOCKE 
CALL-A.P.P.L.E NOV 1982 

10 TEXT : HOME 
12 HOME 

15 FOR E = 1 TO 36 STEP 2 
20 HGR2 

23 A = O 

24 D a O 

25 HPLOT 140,90 

30 FOR D = O TO 3600 STEP E 
40 FOR J - 8 TO 20 STEP 4 
50 A s A -f 1.8 
60 X . 140 + A* SIN (D) 
70 Y Ä 90 ♦ A * COS (D) 

75 IF X > 279 OR X < 1 OR Y > 179 OR Y < 1 THEN 100 
80 HPLOT TO X,Y 
90 NEXT D 
100 NEXT E 
110 GOTO 12 

120 DATA 0,3,0,1,0,12,0,12,2.13,0,1,2,14,1,0,2,14,1,0,2,14,0,12,2,14,0,5,2,14 


-3U- 




1 

MULT I AMPERSAND : & :LLA 26 ERI 



o 
c 

ALIRUTIINIA. TÄSSÄ ESIMERKISSÄ 



•x 

&A PIIPPAA 

KERRAN, &B KAHDESTI 



c 

JA &C KOLMASTI. 




D 
□ 

TEMP 

$6 




7 

CHRGET = 

$81 




8 

AMPERS - 

$3F5 

;&-VEKT0RI 



g 

SNERR 

$DEC9 

, SYNTAX ERR0R 



10 

CHARCHEK = 

$E07D 

;KIRJAIN (A-Z)? 



11 

1? 

BELL1 

$FBDD 

;PIIP 



•c 

ALIRUTIINIT 





1U 






is 

ONE 

$306 

;PIIP 



1A 
la 

TWO 

$303 

;PIIP PIIP 



• / 

THREE 

$300 

;PIIP PIIP PIIP 



1A 

OBJ 

$300 




I .7 

0RG 

$300 




9n 




0300 : 

?n nn fr 

CU UU r □ 

71 

JSR 

BELL1 


0303 : 

?n nn rn 

99 
CC 

JSR 

8ELL1 


0306: 

on nn ro 

9"\ 
Cj 

JSR 

8ELL1 


0309: 

60 

9L 
C** 

RTS 





9*% 

CD 






9(k 
CO 

&- VEKTORI (CALL 778) 




9H 
C f 




030A: 

A9 UC 

28 

LDA 

#$uc 

; JMP 

03QC: 

80 F5 03 

Cj 

STA 

AMPERS 

03 OF: 

A9 1 A 

■in 

JU 

LDA 

*<SYNTAX 


0311 : 

An Ffi m 

1 1 

STA 

AMPERS+1 


03 1U : 

A9 03 

19 

JC 

LDA 

#>SYNTAX 


0316 : 

An F7 m 

XX 

JJ 

STA 

AMPERS+2 


0319: 

60 

TC/. 

J"t 

RTS 





Jj 






JO 

ONKO &:N PERÄSSÄ KIRJAIN? 



37 




03 1A: 

85 06 

IA 

SYNTAX STA 

TEMP 

MERKKI TURVAAN 

03 1 C : 

?n 7n Fn 

CU / U CU 

3Q 

JSR 

CHARCHEK 

ONKO SE KIRJAIN A-Z? 

031F: 

80 03 

LQ 

BCS 

NEXT 

ON, JATKA 

032 1 : 

20 C9 0£ 

U1 

JSR 

SNERR 

EI, SYNTAX ERROR 

032U : 

20 81 00 

Hfc 

NEXT JSR 

CHRGET 



»O 







MIKÄ ALIRUTIINI KYSEESSÄ? 



US 




0327: 

A5 06 

U6 

LDA 

TEMP 

MERKKI TURVASTA 

0329: 

38 

U7 

SEC 



032 A: 

E9 U1 

U8 

SBC 

#'A' 

VÄHENNÄ SIITÄ »A», 

032 C: 

QA 

U9 

ASL 


KERRO SE KAHDELLA 

032 D: 

AA 

50 

TAX 


JA TULOS X-REKISTERIIN, 

032 E: 

80 30 03 

S1 

L0A 

TA8LE, X 

JOSSA SE TOIMII KO. ALI- 

0331 : 

an 3fl 03 

OU JU UU* 

52 

STA 

SUBRUT+1 

RUTIININ PAIKAN OSOITTAJANA 

033U : 

8D 3E 03 

53 

LDA 

TABLE+1, X 


0337: 

an ir 0*5 

Ow UJ 


STA 

SUBRUT+2 


03 3A: 

lq FF FF 

SS 

SUBRUT JMP 

$FFFF : MUUTTUU ALIRUT. OSOITTEEKSI 



56 






57 

&-ALIRUTIINIEN OSOITE TAULUKKO 



58 




0330: 

06 03 

59 

TA8LE DA 

ONE 


033F: 

03 03 

60 

DA 

TWO 


Q3U1: 

00 03 

61 

0A 

THREE 



I HEM -35- 
AMPERSANO TONE: "NAME ThAT TONE" 
BY DAVID A LINQJOQD 
CALL -A.P.P.L.E. IN DEPTH 1 
SE E "ERR-RING" R a D ALDRICH, 
HALL -A.P.P.L.E. , MAR 1981, PG 44 

5 HOME : PRINT » NAME THAT TO 

NE ": PRINT : FOR I « 768 TO 
795: READ J: POKE I,J: NEXT 

10 POKE 1013,76: POKE 1014,0: POKE 
1015,3 

15 INPUT "DURATION (1-255) M 
20 FOR K = 0 TO 255 
30 . IF NOT INT ((K / 16 - IIMT 
(K / 16)) * 16) THEN PRINT 

50 PRINT K 
100 & I,K 

120 FOR J * 1 TO 1000: NEXT 

150 NEXT : FOR J = 1 TD 2000: NEXT 

200 GOTO 15 

1000 DATA 32,70,231,134,81,164,8 
0, 152, 170, 202, 2D8, 253, 44,48, 
192,69,81, 170, 202, 208, 253, 44 
,48,192,136,208,236,96 

9000 REM 

TRY G0SU8 10000 FOR 

9010 REM A GOOD UAKER-UPPER 

10000 FOR 1=1 TO 10: & 30,12: FOR 
J = 1 TO 500: NEXT J: & 30,2 
8: FOR J = 1 TO 500: NEXT J: 
NEXT I: FOR I * 1 TO 400: & 
30,30: l\£XT : RETURN 


AMPERSAND UAIT 

5 FOR I = 768 TO 792: REAO J: POKE 
I,J: NEXT 

10 POKE 1013,76: POKE 1014,0: POKE 
1015,3 

20 INPUT »# TENTHS OF SEC. UAIT? 

";l 

30 & I 

40 PRINT CHR$ (7): REM CTRL-G 
50 GOTO 20 

1000 DATA 32,103,221,32,82,231,1 
66,80, 169,199,32,168,252,202 
,208,248,198,81,48,4,162,255 
,208,240,96 


-36- 


0 REM 

AMPERSAND GQTQ : O A LlNGUiOOD 
CALL -A.P.P.L.E. IN DEPTH 1 

2 POKE 1013,76: POKE 101^,0: POKE 
1015,3 

5 FOR I « 768 TO 786: REAO J: POKE 

I,J: NEXT 
10 PRINT "AT TEN" 
20 INPUT "GOTO LINEOOO QR 200)? 

»;A 
30 & A 
50 GOTO 20 

100 PRINT "ONE HUNDRED* 
110 PRINT "ONE HUNDRED TEN" 
120 GOTO 20 

200 PRINT "TWO HUNDRED" 
210 GOTO 20 

1000 DATA 32,123,221,32,82,231,3 
2, 26, 21*», IM», 3, 76, 65, 217, 162 
,90,76,18,212 


0 REM 

AMPERSAND INPUT : D A LINGUOOD 
CALL -A.P.P.L.E. IN DEPTH 1 

1 HOME : INPUT "NAME OF FILE TO 

PRINT: ";F$ 

2 GOSUB 1000 

5 0$= CHR$ (13) ♦ CHR$ M: PRINT 
D$»OPEN"F$: PRINT D$" READ " 
F$ 

10 ONERR GOTO 200 

20 POKE 1013.76: POKE 10U.0: POKE 

1015,3 
30 A$ =* "" 
100 & A$ 

110 PRINT A$: GOTO 100 

200 IF PEEK (222) < > 5 THEN PRINT 

tl 

ERR*"; PEEK (222): END 
210 PRINT ■ 
ENO OF FILE ON ";F$ 
220 END 

1000 FOR I U768 TO V79<»: READ 
J: POKE 1,3: NEXT : RETURN 

1010 DATA 32,227,223,162,0,32,11 
7,253, 160,0, 138, H»5, 131, 200, 
169,0, U5, 131,200, 169,2, 1<*5, 
131,32,57,213,96 

2000 REM 

THIS SAMPLE PROGRAM lilILL PRINT 
TEXT FILES AT ABOUT K»QQ BAUD 


-37- 




1 

RESTORE - f 



2 

CALL-APF 



3 





4 

TE MP 

=• 



5 

rXTTAB 

M 



6 

VARTAB 




7 

ARYTAB 

= 



3 

ST RENO 




9 

PRGEIMD 

— 



10 

BASIC 

s 



11 





12 


ORG 



13 


OBJ 



14 



0300 : 

A5 67 

15 


LO A 

0302 : 

85 06 

15 


STA 

0304 : 

A5 68 

17 


LOA 

0306 : 

85 07 

18 


STA 

0308: 

AO 0** 

19 


LOY 

030 A: 

91 06 

20 

NXTLIN 

LDA 

030 C: 

FQ 03 

21 


BEQ 

030 E: 

ca 

22 


IIMY 

030F: 

DO F9 

23 


6NE 

0311 : 

08 

24 

RESTOR 

INY 

0312 : 

98 

25 


TY A 

0313: 

18 

26 


CLC 

0314 : 

65 06 

27 


ADC 

03 16: 

AO 00 

28 


LOY 

0318: 

91 06 

29 


STA 

031A: 

A9 00 

30 


LOA 

031C: 

65 07 

31 


ADC 

Q31E: 

G8 

32 


INY 

Q31F: 

91 06 

33 
34 


STA 

0321 : 

AO 01 

35 

ENDSCH 

LOY 

0323 : 

B1 06 

36 


LOA 

0325: 

PO 08 

37 


BEQ 

0327: 

AA 

38 


TAX 

0328: 

88 

39 


OEY 

0329: 

B1 06 

MD 


LDA 

0328: 

85 06 

41 


STA 

032 D: 

86 07 

42 


STX 

Q32F: 

18 

43 


CLC 

0330: 

90 EF 

44 
45 


BCC 

0332: 

18 

46 

ENDFND 

CLC 

0333 : 

A5 06 

47 


LOA 

0335 : 

69 03 

48 


ADC 

0337: 

85 AF 

49 


STA 

0339: 

85 69 

50 


STA 

033 B: 

A5 07 

51 


LDA 

0330: 

69 00 

52 


ADC 

033 F: 

85 68 

53 


STA 

0341 : 

85 60 

54 


CT A 

0343 : 

85 80 

55 


STA 

0345 : 

85 6A 

cr 
JO 


STA 

0347: 

85 6C 

57 


STA 

0349: 

85 6E 

58 


STA 

0348: 

4C 00 03 

59 


JMP 


f ERIC L ALBRECHT 
.E APRIL 1982 

$6 

$67 

169 

$6B 

£60 

$AF 

$300 

$300 
$300 

TXTTA8 ; START AT BEGINNING 

TEMP 

TXTTA8+1 

TEMP+1 

rt$04 

(TEMP) f Y ; SEARCH ENO 
RESTOR ;0F FIRST LINE 

NX TL IN 


TEMP 
#$00 
(TEMP), Y 
*$00 
TEMP+1 

( TEMP), Y 

#$01 ; SEARCH END 

(TEMP), Y ;0F PROGRAM 
ENDFNO 


(TEMP), Y 

TEMP 

TEMPOI 

;(FOR REL0CATA8LE) 

ENOSCH 

; RESTORE 
TEMP ;»END" PO IN TE RS 

#$3 

PRGEND 
V/ARTAB 
TEMP+1 
#$00 
ARYTAB 
STREND 
PRGEND+1 
VARTAB+1 
ARYTAB+1 
STREND-»- 1 

BASIC ;DONE 


— End aaaembly 
78 bytes 
Errora: O 
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7000*7200 












7000- 

20 

C8 

FF 

BA 

QC 

GG 

01 

CA 

710B- 

AO AO ad m 

t\i) MD 

A8 

Q9 

7008- 

00 

00 

01 

38 

E9 

02 


01 

71BD- 

D3 C3 PS AO 

07 (73 

C5 

CE 

7010- 

88 

85 

07 

84 

03 

18 

69 

1F 

71EB- 

AO C6 C9 CE 

C9 03 

m 

C5 

7013- 

A4 

08 

90 

01 

C8 

[3 

35 

1E 

71F0- 

C4 80 80 D2 

C5 C3 

C1 

CC 

7020- 

84 

1F 

A9 

4C 

85 

□6 

2Q 

C7 

71F8- 

CC AO C2 09 

AO BC 

C3 

C1 

7028- 

ff 

34 

10 

20 

58 

FC 

31 

1E 

7200- 

CC CC fi6 AO 

OF M 

AO 

AA 

7030- 

20 

FO 

FO 

C8 

CO 

EO 

00 

F6 

7208- 

E36 C7 8D 80 

00 00 



7038- 

2C 

5^ 

CO 

20 

48 

F9 

AO 

00 






7040- 

84 

24 

20 

OC 

FD 

68 

C9 

AO 






7048- 

00 

08 

A5 

£3 

49 

30 

85 

E3 






7050- 

50 

35 

C9 

95 

00 

04 

E6 

10 






7058- 

50 

20 

C9 

88 

00 

Q4 

06 

10 

APPLE 

PEELER 




7060- 

50 

25 

C9 

98 

FO 

3F 

C9 

80 




7068- 

FO 

CE 

99 

00 

02 

20 

FO 

FO 

by 





7070- 

C8 

84 

24 

CO 

01 

FO 

Cfl 

A9 





7078- 

80 

99 

00 

02 

84 

24 

PO 

00 

DAVE i 

EDMUMDS 




7080- 

20 

A7 

FF 

A5 

3E 

35 

10 

AO 




7088- 

00 

au 

25 

84 

1A 

20 

3E 

FO 





7090- 

A9 

40 

85 

1C 

A5 

10 

85 

18 

16 SEP 80 




7098- 

20 

80 

FE 

20 

DA 

FO 

20 

84 






70P0- 

FE 

A2 

26 

FO 

93 

FO 

75 

20 






70A8- 

4A 

F9 

A4 

1A 

98 

20 

E3 

FO 

näyttää hex-sivut 

hekaeina 


70BQ- 

A2 

04 

20 

4A 

F9 

CB 

C8 

00 



Apple 

II 


7088- 

10 

00 

F1 

AO 

00 

98 

20 

OA 

ASCIIna. - Kta. 


70 CO- 

FO 

A9 

8A 

20 

FO 

FO 

A2 

25 



siv/u < 



7008- 

20 

4A 

F9 

A5 

E3 

10 

2C 

A2 

Reference Manual, 

58. 


7000- 

01 

B1 

1A 

00 

04 

A9 

DC 

00 






7008- 

1** 

09 

80 

C9 

80 

00 

04 

A9 






70E0- 

00 

00 

OA 

C9 

AO 

90 

04 

C9 

Tämä i 





70E3- 

08 

90 

02 

A9 

AE 

20 

FO 

FD 

Dhjelma on myöa Appleklubin 

70 FO- 

A9 

AO 

20 

FO 

FO 

C8 

CA 

10 





levyllä. 

TO f 8- 

08 

30 

OC 

81 

1A 

48 

GB 

Q1 

IAC - 

Public Domain 12 


7100- 

1A 

AA 

68 

20 

41 

F9 

C3 

A9 






7108- 

AO 

20 

FO 

FD 

C4 

1C 

00 

38 






7110- 

98 

FO 

90 

18 

69 

40 

85 

1C 






7118- 

00 

A3 

FO 

A1 

6C 

FC 

FF 

80 






7120- 
7128- 

80 
AA 

AO 
AA 

AO 
AA 

AO 
AO 

AO 
C1 

AO 
00 

AO 
00 

AO 
CC 

Ole huolellinen,. ettet sekoita 

7130- 
7138- 

C5 
PO 

AO 
AA 

00 
AA 

C5 
AA 

C5 
80 

CC 
30 

C5 
C2 

02 
09 

B-*:ir jainta ja numeroa 8 toiaiinaai 

7140- 

AO 

CU 

C1 

06 

C5 

AO 

C5 

C4 






7148- 

CD 

05 

CE 

C4 

03 

PO 

AO 

AO 






7150- 

AO 

AO 

AO 

PO 

AO 

m 

AO 

81 






7158- 

B6 

AO 

03 

C5 

00 

AO 

88 

80 






7160- 

80 

80 

80 

8D 

60 

CC 

CF 

C1 






7168- 

C4 

AO 

C1 

CE 

09 

07 

G8 

C5 






7170- 

02 

C5 

80 

80 

C5 

CE 

04 

C5 






7178- 

02 

AO 

C8 

C5 

08 

PO 

DO 

C1 






7180- 

C7 

C5 

AO 

A3 

80 

80 

C1 

02 






7188- 

02 

CF 

07 

03 

AO 

03 

CB 

C9 






7190- 

06 

04 

AO 

00 

ci 

C7 

C5 

03 






7198- 

60 

80 

D3 

00 

C1 

C3 

C5 

AO 






71A0- 

C2 

C1 

02 

AO 

04 

CF 

C7 

C7 






71/Ö- 

CC 

C5 

03 

AO 

C3 

CF 

C4 

C5 






7180- 

AF 

C3 

C8 

C1 

02 

Cl 

C3 

04 






7188- 

C5 

02 

80 

AO 

AO 

PO 

AO 

A8 






71QD- 

DC 

80 

CE 

05 

CC 

cc 

AC 

AO 






71C8- 

00 

80 

02 

C5 

04 

05 

02 

CE 






7100- 

A9 

AO 

AO 

AO 

AO 

AO 

AO 

AO 








0300 
0302 
0304 
0306 
0307 
030 A 
030 C: 
030 D: 
030F; 
0312: 
03 14 : 

0317i 
031A: 
031C: 
Q31E: 
0320: 
0322 : 
0324 : 
0326: 
0327: 
0329: 

032 C: 
032 F: 
0332 : 
0334: 
0336 : 


: C9 24 
: 00 28 
: AO FF 

i ca 

: 20 81 00 
: FO 03 
18 

69 80 
99 00 02 
00 F2 
20 C7 FF 
20 A7 FF 
A6 3£ 
A5 3F 
□O 03 
00 07 
CO 01 
DO 03 
8A 

A2 00 
4C 24 ED 

20 78 DO 
20 52 E7 
A6 50 
A5 51 
4C 41 F9 


1 

2 

3 

4 

5 

6 

7 

3 

9 

10 

11 

12 


HEX/DEC - REC/ICX CQNl/ERTER 

ÖY \/AL J HOLDING 
CALL -A.P.P.L.E. IN DEPTH 1 
AN AMPL-SOFT SUtiROUTINE 

TO CONVERT HEX TO DECIMAL: 
ENTER &$ PLUS HEX NUMBER 

TO CQNVERT DECIMAL TO HEX: 
ENTER & PLUS DECIMAL NBR. 


13 

A2L 


$3 E 

14 

LINUM 

* 

i DU 

15 

CHRGET 


1 

16 

IN 


-PC.UU 

17 

FR ME VL 


4>UU /□ 

18 

GE TADR 



19 

LINPRT 


trrv?/ 

20 

PRNTAX 


(Tcq/. * 

21 

GETNUM 


h)i r n/ 

22 

ZMQDE 



23 



24 


ORG 

43 JUU 

25 


OBJ 

$300 

26 



27 

START 

CMP 


28 


8NE 


29 


LDY 


30 

BACK 

INY 

31 


JSR 

ruprr t 

32 


□CU, 

uuivt 

33 


CLC 


34 


ADC 


35 

DG NE 

S TA 

IN, Y 

36 


QNE 

BACK 

37 


JSR 

ZMQDE 

38 


JSR 

GETNUM 

39 


LDX 

A2L 

40 


LDA 

A2L+1 

41 


CPY 


42 


8GE 

PRINT 

43 


CPY 

HS1 

44 


BNE 

PRINT 

45 


TXA 


46 


LDX 

m 

47 

PRINT 

JMP 

LINPRT 

48 




49 

HEXOUT 

JSR 

FRMEVL 

50 


JSR 

GETAOR 

51 


LDX 

LINUM 

52 


LDA 

LINUM+1 

53 


JMP 



IF DOLLAR SIGN 
HEX INPUT FOLOUS 

;Y COUNTS THE CHRS 

GET NEXT ASCII CHARACTER 

IF UE FIND A 2ER0, ti£«RE THRU 

SET HI 8IT FOR MONI TOR 
STUFF IN INPUT BUFFER 

TAKE ASCII INPUT, 

CQNVERT TO HEX BYTES 

GET IT 8ACK HERE 

HERE IS UHERE Y TELLS US liJHETHER 

THE RESULT IS ONE OR TUO 8YTES 

IF ONE BYTE ONLY, THEN TRANSFER X TO A 

AND LOAO X UJITH A 

O TO GET THE RIGHT RESULT 


DECIMAL PRINT ROUTINE 

EVALUATE USERS INPUT, PUT IN FAC 

GET VALUE FROM FAC, CONVERT TO INTEGER 

PUT IN LINUM AND LOAO A,X FOR MONITOR ' 

AND PRINT IT. 


— End assembly — 
57 bytea 


Errora: O 
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10 REM 

HEX /DEC - DEC/HEX CONVERTER 

BY VÄL J GQLDIIMG 
CALL -A.P.P.L.E. IIM OEPTH 1 

100 A$ = "3F5:<*C 00 03 IM 300: C9 2 
k DO 28 AO FF C8 20 B1 00 FO 

03 18 69 80 99 00 02 00 F2 
20 C7 FF 20 A7 FF A6 3E A5 3 
F CO Q3 80 07 CO 01 DO 03 8A 

A2 00 <*C 2*4 ED 20 7B DD 20 
52 E7 A6 50 A5 51 UC M F9 N 
D823G" 

110 FOR I = 1 TO LEN (A$): POKE 
511 + I, ASC ( MID$ (A$ f I,1) 
) + 128: NEXT : POKE 72,0: CALL 
- END 

120 REM 


Katso myös konekielinen 
listaus! 

S H Lam Monitor routine 
on sangen yleinen. Julkai- 
simme sen viime toukokuun 
jäsenmonis teessä. Tässä sitä 
taas kerran käytetään poke- 
amaan konekielipätkä Apple- 
softin puolelta muistiin. 


ENTER &$ PLUS HEX NBR OR: ENTER & 
PLUS DECIMAL NUMBER OR UARI 
ABLE 


5 REM 

DOLLAR FORMATTER: BY 
P HEMPFNER & D A LINGUOOD 
CALL -A.P.P.L.E. IN DEPTH 1 

10 DATA 8.13, -123^56.789,-1.99, 
0,. 123, 1.23, 123. <*55,123<*. 501 
,123^567.890 

200 S a 10 

210 DP = 3 

220 HOME 

230 FOR I = 1 TO 9: READ X 
ZUQ PRINT X;: POKE 36,20 
250 GOSUB 60000 
270 NEXT 
280 PRINT 

290 PRINT »UNFORMATTED FORMA 

TT ED" 
300 END 

60000 PRINT RIGHT$ (" ■ ♦ 

STR$ ( INT (X + (X < 0) * 1 
+ (X > = 0) * .005)) + " . 
+ RIGHT$ ( STR$ ( INT (( ABS 

(X) + 100) * 100 ♦ .5)),2),S 

): RETURN 


Applelta puuttuu muotoilu- 
tajua, joten ohjelmoijalla 
on tekemistä kauniin loppu- 
tuloksen aikaansaamiseksi. 

Tässä pieni yhden rivin 
(60000) kahden desimaalin 
ja kauniin sijoittelun for- 
matointien jelma, joka listaa 
rivin 10 luvut esimerkiksi. 

Pitäisikö seuraavalla ker- 
ralla julkaista PRINT USING 
konekielien jelma, jonka muo- 
tovaisto on paljon tehok- 
kaampi? 


Kertomerkit on taas raapus- 
teltu käsin, vaan eiköhän 
siitä selvää saa. 


A? 
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1Q30 REM 
MARQUEE 

APPE QRCHARD (MOV/DEC 1982 

B$:TOP LINE 
C$:BQTTOM LINE 
\y$:5IDES 
Z$:FIXED STARS 

1100 HOME 

1101 A$ = " HERE IS A MARQUEE 

ON UHICH THE ' LIGHTS' GO AR 

OUNO THE SIGN AOAPTEO FR 

OI A PROGRAM BY PETER ClARKE 
, MODIFIED BY RIK ANDERSON" 

1102 B$ * " ++++ ++++ ++ 
-m- ♦+++ ++++ +++♦ 

++++ ++++ ++++ ++ 
++" 

1103 Z$ ■ 
+++++++♦+++++++ " 

1105 C$ = B$:V/$ = "+ ♦++" 

1107 UT AB 23: HTAB 6 

1108 PRINT "ANY KEY TO STOP" 

1110 V$ = MID$ (17$, 2) ♦ LEFT$ ( 
V7$,1):A$ = MIO$ (A$,2) ♦ LEFT$ 
(A$,1):B$ = MID$ (B$,2) ♦ LEFT$ 
(B$,1) 

1111 C$ = MID$ (C$,8) ♦ LEFT$ ( 
C$,7) 

1120 VTAB 8: HTAB 1 

1121 PRINT LEFT$ (B$,**0) 

1122 UTAB 9: HTAB 1 

1123 PRINT MID$ ( V$, 1 , 1 ) ; Z$; "+" 
; MID$ (\y$,1,D 

112«4 vTAB 10: HTAB 1 

1125 PRINT MIO$ (V/$,8,1);"+"; SPC( 
36);"+"; MID$ (\/$,2 f 1) 

1126 VTAB 11: HTAB 1 

1127 PRINT MID$ (17$, 7,1);"+ "; LEFT$ 
(A$,3<*);" ♦ "; MIO$ (U$,3,1) 

1128 UT AB 12: HTAB 1 

1129 PRINT MID$ (l/$,6 f 1) ; "+"; SPC( 
I6)| V M « MID$ (V$,U,1) 

1 1 M) V/I AB 13: HTAB 1 
MM PRINT MIO$ (V$,5 f 1);Z$;"+" 
; MID$ (V/$,5,1) 

1132 VTAB 1*»: HTAB 1 

1133 PRINT LEFT$ (C$,U]) 

11<*0 X - PE EK ( - 1638**): IF X > 

127 THEN POKE - 16368,0: GOTO 
1180 

1150 GOTO 1110 

1180 TEXT : HOME : ENO 


Alkuperäisessä listauk- 
sessa on tähdet, mutta 
kun tämä printteri luu- 
lee niitä heittomerkeiksi 
niin ne on pitänyt korva- 
ta plussilla. 


Näitä listauksia ei muu- 
ten sen takia ole levi- 
telty koko sivun yli, 
koska ne on paljon hel- 
pompi debugata, kun ne 
paperilla näyttävät sa- 
malta kuin ruutulistauk- 
sessa. 


ALE 


ALE 


ALE 


ALE 


Pelastusarmeijan kauppaosasto 
lopettaa ATK- tarvikkein nyynnin. 

Siksi tarjoamme Sinulle tosiedulliseen hintaan seuraavia varastossamme 
olevia tarvikkeita. Käytä oheista tilauspostikorttia. 


Diskettejä 

Scotch 744D-0 RH 10 kpl 


BASF PlexyDisk 5.25 iD 10 kpl 
Scoth tietokasetti 830 C-10 


Scotch diskettikotelo mahtuu 10 diskettiä 



mk^MCtf. 
»k>*<£- 

Scotch puhdistuspakkaus "Head cleaning diskettes" mlT>«^^^^ 


MIA diskettitasku yleisrei • itys , mahtuu 12 disk. mk^JSrSCC /5~ ; 0£ 

Tarraetikettejä r (Pin feed labels) 
HERKA 88x35,3 mm 2000 kpl (1-r innakkain) 

KERMA 100x35,3 mm 2000 kpl (2-r innakkain) 

Seuraavia ohjelmia löytyy vielä muutama: 
SUPER DISK COPY 

DISK ORGANIZER 

MULTT-DISK CATALOG 

Taulukointipaperi 1000 arkkia, 240 mmxl2 
Tule käymään myymälässämme: Uudenmaankatu 40 Helsinki 

Tai tee tilauksesi puhelimitse: Puh (90) 646 525/Kauppa 

Takakannessa on tilauskortti, irroita se ja postita, me maksamme postikulut. 



PELASTUSARMEIJAN 

KAUPPAOSASTO 
• * perustettu 1898 • • 

Uudenmaankatu 40 
Helsinki 


PELASTUSARMEIJAN 
KAUPPAOSASTO 
N. 1S1 

001 »I HELSINKI 1t 


Gfr 90-646525 



